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1.0 ABSTRACT 
THIS PROGRAM BER Obes PART 1 OF THE DRIVE DIAGNOSTICS 
TQ INSURE T 


DISK IS CAPABLE oF Pere Canine at STATIC $ CYCLE UP TESTS. 
IT INSURES THAT THE DRIVE CAN WRITE AND READ HEADERS 


ofa 

HE DISK CAN PERFORM SEEK 

SEEK PATTERNS. 

S CHECKED BY SOFTWARE ERROR FORCING. 
n 


H_NO ERRORS) OF PART 1, THE Dave 
THE ORIVE DIAGNOSTICS. 


CHY APPROACH neon aoe WITH 
DING THRU DYNAMIC TESTING. THE 
FACILITATE SCOPING LOOPS. 


Z 
eins 

ad 

oe 


TESTING IS BASED ON 
BASIC LOGIC TESTS AND PR 
S22H2CAUT I ONSE RES 
WALTING THIS PROGRAM ANYHHERE BUT AT THE END OF @ PASS, 
AVE THE HEADERS IN THE DISK CARTRIDGE IN AN 
UNDETERMINED STATE. 
2.0 REQUIREMENTS 
2.1 HARDWARE 
THE FOLLOWING HARDWARE IS REGUIRED TO RUN THE DISK DIAGNOSTIC: 
POP-11 
CONSOLE TELETYPE 
16K MEMORY 
KALJ-L OR KWL1-P CLOCK 
RKOG UNIBUS CONTROLLER (RKE11) 
1 TO 8 RKOG DRIVES 
NOTES: 1. IF NEITHER KWI1-L OR P CLOCK JS USED, ALL TIMING 
TESTS WILL BE BYPASSED. A TT 
BEGINNING OF THe TESTS WILL CONFIRM THIS. 
2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 
2.2 PRELIMINARY TESTING 8 PROGRAMS 
THE RK611 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU 


3.0 PROGRAM CONSIDERATIONS 


penne mmm i ee 
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3.1 POP-11 FAMILY COMPATIBILITY 
sys PaSSaR CE, + ne BY THE POP-11/04,0S,10,20, 


fw 


2 = Oe 8 be ht eh hh hd oe ee 


IT IS COMPATABLE WITH THE LSI-11 BRS TALON SET AND CAN TEST 
RKOG ONLY IF THE od CONTROLLER FOR THE LSI-11 IS 
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RKE11. 
3.2 XXDP 


rete aca CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE 


CHAIN MODE OPERATION (MONITOR) 


. ie Buss aboress & A ayFROLL R INTERRORUPT VECTOR IS 


TE totus Ot JOTUTE tohae eed ae 


ee — ee SS ane oe a 


es 

1 0 wi = 

iE gar: bRrves is the 6 "DRIVE PRESENT’ CONDITION WILL 
Pe BE TESTED. 

0 NOTE: THE DRIVE PRESENT CONDITION IS: 


n 


ee S MANUALLY LOADED 
: a Sa fg SELECTED 
SRIVE REA READY OFROTCATOR ON 
DUMP MODE OPERATION (MANUAL } 


I. TALOGUE ARTED FROM 220. 
é. prive E 8 on price res TED, Lai PERATOR IS FIRST GIVEN 


"SR WITH A SCRATCH 
PACK es "SBE Pree + Hy 


ated 


(Ohare has 


co 
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3.3 ACT /APT 


THIS PROGRAM IS ACT COMPATIBLE. IT IS AF 
COMPATABLE TO THE EXTENT THAT APT HOOKS ILL BE IN THE 
PROGRAM 8 WILL WORK THRU THE "UPTON INTERFACE’. 


FOR OTHER INTERFACES. APT MAY ONLY LOAD 8 START THE PROGRAM. 
1.£. LOAD & DUMP MODE. 


AUTOMATIC MODE (MONITOR) 


1. THE INPUT DIALOGUE IS BYPASSED. 
2. THE BUSS ADDRESS & CONTROLLER INTERRORUPT VECTOR IS 
2. Rc, paves IN THE "DRIVE PRESENT’ CONDITION WILL BE 
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is NOTE: THE DRIVE PRESENT CONDITION IS: 
204 A. 
 B Be aoe ta 
| = 0B C. WRITE LOCK DISABLED 
207 6. Baave VE READY INDICATOR ON 
208 
| gi¢ DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 
| z12 3.3.1 APT ETABLE DEFINITIONS 
513 THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
| gi TABLE (ETABLE) ENTRIES, VIA RUNNING THE APT UTILITY PROGRAM “TSP™: 
| pi? 1. SOFTWARE ENVIRONMENT: 
| ee =] IF APT SCRIPT MODE 
| z13 =0 IF STANDALONE MODE 
1 2. ENVIRONMENT MODE: 
| ee Sie 7s : EAGLE DOES SIZING 
| Bey BIT 6 = ; “fet ‘ SCRIPT MODE 
ecS S 5 sPooh rss Pa 
io BITS =1 SUPPRESS SENSOLE SUTPUT 
| por = 6 Old CONSOLE OUTPUT 
| eee BITS 4-0 NC 
| px 3. SWITCH 1 (SOF THARE SHITCH REGISTER) 
| pay IF ENV TRONMENT MODE BIT 7 (S1ZiNs BIT) 1s SET TO 1, 
zx THE SOF THARE SWITCH GISTER R il Rests E NSTEAD 
| B34 OF WHICH ONE I GONSOLE, Bur TSe ein § eeTione 
. oe 4.3 8 4.4 (SWITCH REGISTER APF TONG) 
be & WHEN RUNNING IN ORAL ONE MODE. IN NaPT Ue TPT MODE, 
e- ap HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE SET 
| ez TO 0. 7 
| e40 4. SWITCH 2 (USER SWITCH REGISTER) 
| St Nae Ses 
e242 
(Bug 5. CPU OPTIONS: 
| et NOT USED 
ue &. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
247 NOT USED 
249 7. INTERRORUPT VECTOR 1 
50 USED WHEN ENV RONMENT MODE BIT 7 = 1. DEFAULT = 210 
A 8. BUS PRIORITY 1 
ees USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT 
3ec §. INTERRORUPT VECTOR 2: 
Zee NOT USED 


NS ee 
S 
o« 
& 

<6 
n 
o- 
<_< 
ow 
- qo 
a 4) 
«> 
r 4 
oO 
-—iuD 
4 
o« 
oan 


3) PART 1  MACYLL 27(1006) 06-OCT-76 23:23 PAGE & SEG 0006 
DZREHC.F1 O6-0CT-7 18:69 
| 288 10. BUS PRIORITY 2: 
+ = «BSS NOT USED 
| st en ll. 8 S: 
| Be ™ Leakesinre MODE BIT 7 = 1. DEFAULT = 177440 
264 12. DE 
2EE USED uke VIRONMENT MODE BIT 7 = 1. EACH BIT 
26k SET TO 1 Nn ute O-7 WILL SELEC of THE CORRESPONDING 
ee DRIVE 14 BE TESTED. BITS 8-15 ARE NOT USED. 
| Bes 13. CONTROLLER DESCRIPTOR WORDS: 
| ae NOT USED 
| BF 14. DEVICE DESCRIPTOR CODES (IN WORDS): 
| 5-5 Er 
e74 
a5 2.4 DUAL ACCESS 
rad THI PROGRAM T TEST PPORT DUAL-ACCESS. 4 DRI 
| ? Sees Care Biat Bete cee SWITCHED TO THE PORT UNDE 
27° frst TO PREVENT EONTENTION WITH THE OTHER PORT. 
| eB DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROG 
pee AT A LATER DATE. 
| 2g3 
284 
ee 3.5 MEMORY MANAGEMENT 
ee? MEMORY MANAGEMENT NOT USED B 
| pas 
| 230 3.6 PARITY CHECK ENABLED 
pgp if THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, { 
£22 OGRAM WILL RUN WITH MEMORY CHECK ENABLED. 
295 
ex 2.7 BAD SECTOR 
a THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR 
| ee INFORMATION CONT AINED ON CYL 4 NT 
| 30 OF DATA ERRORS DUE TO BAD SECTORS TRACKS’ WILL BE MASKED OUT. 
| 308 
293 3.8 EXECUTION TIME 
20 THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE PDP 11/50. 
207 TOTAL TIME: S MIN, 30 SEC 
03 ff BREAKDOWN OF THE MORE LENGTHY TESTS ARE SHOWN BELOW: 
311 TEST 16 sTaniC cyt ADDRESS & DIFF REGS-PART 2: 2 MIN, 15 SEC 
| ie TEST 36 F PACK { MIN 
212 TEST 4} SEEK MERON CYL 0 TO ALL CYLS : 40 SEC 
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Ht: TEST 42 SEEK FROM CYL 410 TO ALL CYLS s 40 SEC 
3.9 FAULT ISOLATION 
TO BE DETERMINED. 


CUGIGIG 
.w0-~3o” 


320 
321 3.10 ERROR CORRECTION AND FAILURE RATE ANALYSIS 
3 THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
ANALYSIS. 
325 
336 | 
| se 3.11 DEFAULT UNIBUS ADDRESSES 8 VECTORS 
| 3 THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS 
HARDWARE T0 BE USED $ THEIR MEMORY AODRESSES 
| $i WHERE THEY CAN BE CHANGED. 
| 33 LOCATION DEFAULT CONTENTS 
| 335 S ss 1264 177440 
33% CONTROLLER INT RRORUPT VECTOR 1314 210 
2 a ee 
ae pret See ef BoE EES 1359 17254 
/ 340 P-CLOCK READ BUFFER 1324 172544 
34] L-CLOCK STATUS REG 1326 177546 
| L-C€LOCK INTERRORUPT VECTOR 1330 100 
«Ba B-CLOCK INTERRORUPT VECT 1332 104 
Bay TY KB STATUS 1144 177560 
Bes TTY KB BUFFER 1146 177562 
| 3u6 TTY PRINTER STATUS REG 1150 177564 
37 TTY PRINTER BUFFER 1152 177566 
346 
| #50 4.0 OPERATING PROCEDURE 8 CONTROL FUNCTIONS 
+ oe 
| #3 4.1 PROGRAM LOADING 
3E5 THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
Pe oe PROCEDURE FOR ABSOLUTE LOADER TAPES: OR FROM ANY MEDIA 
co aay SUPPORTED BY XXDP. 
# | 
| #60 4.1.1 LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
: 
#3 4.1.2 SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 
5 
Ea 4.1.2 SET DRIVES TO BE TESTED IN, THE *LOAD’ CONDITION $8 WITH THE 
oe 4, APPROPRIATE PORT SELECTED 8 WRITE LOCK DISABLED. DRIVES 
| 3B . NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED. 
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%.1.4% 


4.2 


NOTE: THE pare WILL NOT RESPOND TO THE °START Beal 
ge ton a: tag RUN/STOP SWITCH IS IN THE °STO 


PRESS *START’ 


PHL OGLE may HTH Tre OBERATOR: 7 ETERMINE DRIVES TC BE TESTED 


THE fieur GUAGE. TF A SPECIFIED DRIVE CANON Be FOUND BY 


1s 1S TAVBILABLE. “ite “EFal Tne “AEH THe ‘test NSPE CAL 
ee es ey ee, ih Si Pere = 


WILL BE TYPED A 
BEGINNING. OF EACH PRs ND OF PASS” WILL BE TYPED TAETER 
TESTING ALL DRIVES. 


STARTING LOCATIONS 


LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS 
ADDRESS & THE CONTROLLER INTERRORUPT Vay TOR 
Beton aL DRIVES IN THE ‘ORIVE PRESENT 


NOTE: THE DRIVE PRESENT CONDITION IS: 


. HEADS MANUALLY LOADED 
B. CORRECT PORT SELECTED 
C. WRITE LOCK DISABLED 
D. DRIVE READY INDICATOR ON . 


LOCATION 204 - SAME AS 200 START BUT BYPASS TEST 16 (N SQUARE) 
LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 
VIA_THE INPUT DIALOGUE. BUSS RESS 8 
Goa Ds npeatmaill VECTOR INPUTTED ONLY ON 


SAME AS 220 START BUT BYPASS TEST 16 (N SQUARE) 


RUN MODULE TEST ...DEFAULT MODE ONLY. 
THIS SKIPS OVER THE FOLLOWING TESTS: 


1. TEST 35 FORMAT PACK 

é. TEST 36 DECREMENT FROM CYL 410 TO O 8 READ HEADERS 
3. TEST 40 SEEK FROM CYL O TO ALL 

4. TEST 41 SEEK FROM CYL 410 TO ALL 


LOCATION 230 
LOCATION 260 


SEG 0006 
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4.3 


4.3.1 


4.3.2 


4.3.3 


4.3.4 


4.3.5 


THE PURPOSE OF — IS TO PROVIDE 
A QUICK MODULE TEST 


LOCATION 270 - SAME AS 260 START BUT BYPASS TEST i6 ALSO. 


IMPORTANT: FOR VARIATIONS OF THE ABOVE Ae . ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.2. 


SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 
SWITCH FUNCTION 


i} boop ON Test. 
13 Theta? EREOR TY TYPEOUT 
le BYPASS DRIVE a 20 ERRORS 
1} tag bieRa TION 
10 BELL RROR 
$ LOOP ON ERROR 
8 LOOP ON TEST IN SW<07:00> 
SW< 15> 


THE PROGRAM HALTS ON open tbl tate AN ERROR, AFTER TYPING OUT 
THE ERROR MSG AND PERTINENT INFORMATION 


3= 
PRESSING “CONTINUE” RESTORES NORMAL OPERATION OF THE PROGRAM. 


SW< 14> 


THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN 
ie Pe IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 

THIS SWITCH INHIBITS ALL ERROR MSGS. NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SWS). 

SW< 1e> 

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SW< 11> 
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482 EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY erTER THE 
483 FIRST PASS. EACH et ST Is = TERATED A be TIMES 
424 (USUALLY 50, 5 IN cases > Brees INHIBITS 
#85 ITERATIONS, SO THAT QUICK PASSES CAN 8 
| 487 
a 4.3.6  SW<«10> 
4 
430 RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 
uge 
133 4.3.7 SW<O0> 
485 THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP F 
495 ERRORS. IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP Sack 
432 TO THE BEGINNING OF TEST. 
ugg 
ar 4.3.8  SwW<08 
502 THIS SUITCH IS USED TO SELECT A PARTICULAR TEST (AS PER 
503 SW<00-7)) FOR EXECUTION AND SUBSEQUENT LOOPING. THUS IF 
| 504 TEST is - 19 use 8 SELECTED THE SWITCH SETTING 
> oo l IT SHO NOTED THAT BEFORE SELECTING TEST 15, 
| 06 ALL THE PREVIOUS eae (1-14) WILL BE EXE 
| 6&08 
503 4.4 *SOFTWARE’ SWITCH REGISTER 
eit IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/04 OR 11734) 
bie THE proaen WILL UGETERMINE THAT THAT THE HARDWARE Si TCH ae ae ER IS 
| ty "SOFT esac “ReciStek a rbocat D r Tee 196 (9). 
cis SETTI TCHES ARE CONTROLLED THROUGH 
| 6816 A KEYOGERO ROUTINE i WHICH IS SCALED BY TYP vPING, A EDT ROL G’. 
| 617 THE PROGRAM WILL RECOGNIZE THE "CONTROL G’ AT ANY TIME EXCEPT 
| 518 WHEN THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKOE INTERRORUPT. 
£19 SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCT 
Be0 IN. RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
ess “4 SWR = NNNNNN NEW = 
| Sy 
EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH 
«bes REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
536 UIRED. T’ AND "CONTROL U’ FUNCTIONS MAY BE USED TO 
| 27 RBRRECT TYPING ERRORS DURING SWITCH ENTRY. 
| §9g ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE *SOFTWARE’ 
dove «| SWITCH REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 
| 6§31 SWITCHES IN THE UP’ POSITION, ALL SWITCH REGISTER REF EREN CES 
‘ee > WILL BE TO THE ‘SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED 
233 ABOVE MUST BE FOLLOWED. 
i 
| ee 4.5 INPUT DIALOGUE 
537 
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538 TH HE DIALOGUE WILL BE 0 DONE INTERACTIVELY. THE PROGRAM efit 
233 Teh bef ENTERED cae SPECIFIES BEL OH oF a Pe OE BOLT 
ui ARRIAGE RE ILLEGAL RESPONSES WILL 
43 Br Ecuces BACK EO oueD ue soe" 12 OF ROPER RESPONSE MA 
B43 THEN BE ENTERED. 
4s IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
a CONSIDERATIONS ia SECTIONS 3. 3 5 at 
¢ 
cue 
43 4.5.1 DRIVE SELECTION 
| a THE REQUEST WILL BE: 
| &o3 DRIVES TO BE TESTED: 
5 THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 
ea IN THE ‘DRIVE PRESENT’ CONDITION. 
c5e THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 
559 TO BE TESTED, SEPARATED BY COMMAS 8 TERMINATED BY A CARRIAGE 
60 RETURN. 
Be E.G. DRIVES TO BE TESTED: 1,2,4,6 
564 IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE xP, ACT /APT 
365 CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 
| oy 
| se 4.5.2 BUS ADDRESS 
570 THE REQUEST WILL BE: 
| 572 TYPE IN BUSS ADDRESS IF NOT 177440 
| 24 THE DEFAULT IS A CARRIAGE RETURN 
oo a. 
27 4.5.3 CONTROLLER INTERRORUPT VECTOR 
573 . THE REQUEST WILL BE: 
eel TYPE IN CONTROLLER INTERRORUPT VECTOR IF NOT 210 
| ees THE DEFAULT IS A CARRIAGE RETURN. 
| te 
| ee 4.5.4 EXAMPLE OF PROGRAM DIALOGUE 
Eee THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
=e3 ALL OPERATOR RESPONSES ARE UNDERLINED. 
| 2) UNIBUS RKO& DRIVE DIAGNOSTIC 


PART 1 
$33 MAINDEC-11-DZ2REH-C-PB 
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roy ' 
o35 DRIVES TO BE TESTED: 1,3<CR> 
97 
| Es TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 
£00 
B01 TYPE IN CONTROLLER INTERRORUPT VECTOR IF NOT 210 <CR> 
£03 
£94 WILL TEST DRIVES: 
605 
606 
| 607 
G08 DRIVE 1 
| 610 (THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 
12 
613 4.6 PROGRAM EXAMPLE 
615 THE FOLLOWING IS AN EXAMPLE OF & PROGRAM STARTED AT THE 
18 BEE ALL granese (200) & TH 2 DRIVES ON THE LINE. 
| 618 UNIBUS RKO& DRIVE DIAGNOSTIC 
| 619 PART 1 
| peo MAINDEC-11-DZR6H-C-PB 
| 6ée WILL TEST DRIVES: 
 «&3 0 
624 1 
625 
bee DRIVE 0 
| 628 DRIVE SERIAL NO. AAA 
pe3 CARTRIDGE SERIAL NO.; B88 
Coe DRIVE 1 
632 
| 633 DRIVE SERIAL NO. CCC 
Pay CARTRIDGE SERIAL NO. DDD 
| §36 END PASS #1 
637 * 
«638 
«638 WILL TEST DRIVES: 
«640 0 
641 ; 1 
| He , 
/ 643 DRIVE O 
644 , 
BYS DRIVE SERIAL NO. AAA 
a CARTRIDGE SERIAL NO. BBE 
648 DRIVE 1 
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ORIVE SERTAL NO. CCC 
CARTRIDGE SERIAL NO. DDD 


END PASS # 2 ‘ 
(ETC) A 





THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE NUMBER OF PASSES IS DETERMINED BY SCT/APT/XXOP 
ONS 


S 
IMPORTANT: FOR VERIATI OF THE ABOVE SEE oP, ACT/APT 
ONSIDERATIONS IN SECTIONS 3.2 8 3.3. 


HAL TING THE PROGRAM 


THE rion PROVIDES A METHOD OF HALTING ITSELF SUCH THAT 
THE CARTRIDGE AND/OR ORIVE IS NOT LEFT IN ON UNDETERMINED 
STATE; IE: HEADS UNLOADED OR INVALID FORMAT. 


TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 


F HEADS ARE LOADED & FORMATTING IS VALID, 
THE PROGRAM WILL: 


ECHO tC 
TYPE “CPU HALTED” 
HALT THE PROGRAM 


F_HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID, 
HE PROGRAM WILL: 


tC 
YPE 'HALT PENDING, PLEASE WAIT’ 
bo THE TEST(S) THAT LOADS HEADS AND/OR FORMATS 
THE INVALID CYLS 
TYPE *CPU HAL 
HALT THE PROGRAM 


mc Wwe -—4d4 wre 


NOTES: 


i. _—s ie 1s: FOR THE PROGRAM RUNNING IN pump 
MODE (MANUAL). IF THE PROGRAM §$ RUNNI Of HEADS 


CALLED IN. 


THE TYPEOUTS WILL BE “ABORT PENDING - PLEASE WAIT” 
& “PROGRAM fBORTING” 


2. OPERATING THE *CONTINUE’ SWITCH ON THE CPU CONSOLE WILL RETURN THE 
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1°ST DRIVE AGAIN. 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 
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GENERAL 
A. BASIC CONTROLLER TESTS, SIZING & SETUP 


THESE TESTS DO BesIC CONTROLLER REGISTER REFERENCE TESTS 
CHECKS OPERATOR INPUTS 8 GRINS DRIVES SEEN NON THE LINE Of 


peas TO TEST ALL wa SEEN ON THE LI IT 
pene i. & TENCE f° AN L P CLOCKS Pia USE IN THE 
i 


8. STATIC & CYCLE UP TESTS 


THESE TESTS CHECK OUT THE ABILITY TO SELECT g DESELECT 
THE DRIVE: TO DETECT PARITY, UNSAFE, ANO FAULT CONDITIONS 
WITH THE DRIVE READY TO SPERATE BUT WITHOUT THE SPINDLE 


HG UR UPN HE EELS 


UTER INET GEYECTION, FORLARD. 
BIS: eet Starts errs ARE CHECKED. 


C. SEEK, WRITE HEADER, READ HEADER TESTS 


THESE TESTS CHECK THE ABILITY OF THE DRIVE TO DO SEEKS, 
HEADER OPERATIONS 8 20, e2 SECTOR FORMATTING. 


TEST DESCRIPTIONS 


SHEFLSLELEAAESELEASELLAAL ELLA LAAFEETEFLLALLLALALELE LEFT LELELLSERE 


BASIC CONTROLLER TESTS, SIZING 8 SETUP 
SEREEESERESESEREESERARERERERESEAEREREEERERARSAEREREERREEEEERES EEE 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 


THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
CAN BE ROCESS. iH INABIL 'y Y. TO GE yee Mas 
RESULT IN A TIMEOUT TRAP WITH AN 
ERROR IN THIS TEST WILL RSS T IN BEORTING “ALL OTHER 
TESTS AND JUMPING TO ‘END OF PASS’ 


TEST 2 SIZE THE BUSS 


THIS rest IS ENTERED ONLY IF ‘DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 


MODE. 
EVERY DRIVE FROM O THRU 7 IS ADDRESSED. 
CONTROLLER ERROR (CE (CERR) i EXAMINED AND IF NOT SET. THE 
PROGRAM WILL vPass. 
TESTING THAT ORTOE” Bi y F Fie ERROR WAS A RESUL 
UFE OR NED BEING SET; OR BOTH NED 8% DRA aeter® aa 
POR ATINE THE OTHER PORT I& ACCESSED. 





a LL TTT 
; 
| 

























| UNIBUS Be DRIVE 0) SJAGNOSTIC PART | MACYL1 27(1006) O6-OCT-7& 23:23 PAGE 15 


| ODREKT.PL & 18:69 
i ry 
| 23 
758 TEST 3. VERIFY OPERATOR DRIVE SELECTIONS 
| TEE THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 
bc DEFAULTED. EVERY DRIVE FROM O TO 7 IS ADDRESSED & 
| 765 CONTROLLER ERROR (CERR) Is eo Ria NOT SET, THE 
770 PROGRAM WILL RSSUNE THE OR RIVE 18 IT WiLL THEN CHECK 
77} TO ee THAT THE DRIVE Ha ei U7 feD F ESE Nesting’ IF NOT, IT WILL 
778 BE AN ERROR. IF C T, THAT DRIVE WILL 8& BYERS S560 
773 ONLY IF THE ERROR WAS A F MDS OR UFE SET OR BOT 
775 NED & DRA RESET (WRONG PORTS t oF CERR IS A RESULT a 
| vs NED SNOY” TT TS CHECKED AGAINT THE INPUTTED INFOR TO 
| 77 VERIFY If WAS NOT SPECIFIED. 
| 378 
| 723 TEST 4 FIND NEXT DRIVE TO BE TESTED 
ze THIS TEST FINOS THE NEXT ORIVE PRESENT 8 PUTS THAT 
| 783 Thou 7 THE FOLLOWING TESTS, THE DRIVE TESTED IS 
Pow seh i ROORESS IS IN 'DRVAD’. 
| 73 TEST S UNLOAD DRIVE TO BE TESTED 
? THI OADS T BE TESTED NEXT 
76S upits Fon & TIN 8 VER rice Fre CANE F FRO OM THE CORRECT DRIVE. 
730 Bt N WAITS FOR SPEED OK To G0 L W BEFORE 
79) ra PROCEEDING TO THE NEX 
te > 
235 SESSESESSFSSSSESSESSSERSSSSASSSSESSSSSSASASSFLSERERSERSLELESSFFLLEF 
795 STATIC & CYCLE UP TESTS 
a SPEFLSLESESSSSASLARSSSAAFASASESARSSAEFSESERASZELALSASEARELAFLLEKSLELEE 
79g 
| 2aa TEST & REFERENCE 8 CHECK ALL STATUS BYTES IN RKMRE & RKMR3 
B01 CHECKS THE ABILITY TO REFERENCE AL 
ee DRIVE REGISTERS AND THAT THEY ESNTAIN CORRECT STATUS. 
555 
eos TEST 7 PRINT DRIVE SERIAL NUMBER 
857 THIS TEST READS 8 PRINTS THE DRIVE SERIAL # FRON MSG A, WORD 11 
ee IN DECIMAL 8 IS PERFORMED ON THE IST PASS ONL 
se 
ae TEST 10 SET VV WITH PACK CMD 
He IF. VV IS RESET, THE PACK CMD IS USED TO SET IT. 
gic 
E1E TEST 11 RELEASE DRIVE 
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TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT FAISE SACK 


aa 
mo 
wc 


TEST 12 ORIVE TYPE TEST 


THIS TEST COMPARES DRIVE TYPE_IN MSG & 
WRONG COT IN RKCS1 IS SENT & ERRORS ARE 


TEST 13 C-D PARITY ERROR DETECTION 


Ls ne ABILITY OF THE oN. TO DETECT EVEN PARITY SENT BY 
THE CONTROLLER BY SETTING ’PAT’ ON RKMRI. 

THE DRIVE SHOULD RESPOND WITH. 'C-D PARITY ERROR’ 

THE DRIVE STILL SENDS ODD PARITY TO THE CONTROLLER WHICH IS NOW 
ee FOR EVEN PARITY THEREFORE THE CONTROLLER SHOULD DETECT 


Q@N ERROR AND SET SPAR. 
THE ERROR CONDITION IS RESET WITH THE CLEAR CMD 


PASI AREA oO TOE eta 


B3E 
837 
236 TEST 14 VERIFY START SPINDLE CMO 
B49 THE PROGRAN CHECKS THE ENTIRE STARTUP SEQUENCE, IE: 
54] BRUSH CYCLE, HEADS HOME, FWD, REV ETC. 
| 2 BY VERIFYING ALL APPROPRIATE STATUS BITS FOR PROPER SEQUENCING. 
| B43 THE CYL AboReSS- 8 CYL DIFFERENCE REGS ARE CHECKED 
ef TO BE ZERC AT THE END OF THE SEQUENCE. 
Exe 
B47 SESSALSFASALSSASLE SSA AASALLALALALSLELALESSASAERAASSFRELAAEFLEERELEE 
E4e SEEK/READ HEADER/WRITE HEADER TESTS | 
pas SSSSESSSLASLASSRERALERLAHAALEAELSSS ESSA SSSA TAL SAA LA FARALSE FERALAS LAE 
B51 
ccs TEST 15 STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 
BSS THIS TEST CHECKS EACH BIT OF THE CYL DIFFERENCE 
a AND CYL AQORE SS REGISTERS =, PERFORMING SEEKS TO ALL 
BSE MAJOR CYLS (0,1,2,4,8 128,256) WITH EVEN PARITY SET. 
| 7 THIS FREESES Ope INEGARE Bt} io” Ih bir: REOVE REGISTERS § ALLOWS FOR CHECKIN 
| THIS TEST VERIFIES C-D PARI TY ERROR BIT SET, THAT HEADS Dro 
eo MOVE & ALL OTHER PPL TABLE STATUS BITS'S REGS. 
1 
ete TEST 16 STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 
BES THIS TEST CHECKS THE ABILITY OF THE DRIVE TO PROPERLY SET THE CYL 
BES DIFF. 8 CYL ADDR REGS FOR ALL COMBINATIONS BY SEEKING T 
Eee ae CYLS FROM EVERY OTHER CYL. (N SQUARE SEEKS). 
67 IT IS PERFORMED IN THE SAME MANNER AS THE ABOVE’ TEST. 
est 
g70 TEST 17 HEAD REGISTER TEST 
| 878 THIS TEST CHECKS THE ABILITY TO SELECT ALL HEADS (0,1 


2) 
872 VIA RKDA & READING BACK FROM MSG B2 BY THE SELECT DRIVE cmp. 
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TEST 21 


TEST e2 


TEST 23 


TEST 24 


TEST 25 
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HEAD 3 IS CHECKED TO PRODUCE INV. ADDR. 


aNeE f need Sabet SSES ARE TIED TO $ K SHS, 

LECTING 3 MUST IN A SEEK INCO ONG WITH 

ILLEGAL FHTs MEANS THAT CHANGING HEAD ACORESSES 
ARE NOT Heo 73° stek'e Nonbs 


SEEK TO CYL 0 
TESTS THE ABILITY TO DO A SEEK CMD. 
VERIFIES T WAS NO MOVEMENT BY CHECKING ALL APPROPRIATE 


STATUS BITS. VERIFIES CMD COMPLETION BETWEEN 10-1SUSEC. 
READ HEADER IS NOT PERFORMED AS THE PACK MAY NOT BE FORMATTED. 


TEST SECTOR COUNT REG. FOR 22 & 20 SECTOR FORMAT 


DETECT OUTER LIMIT 


1ST PUGH ST 1 GG HRE PRT PeeTIN ow oo 


ERROR IN THIS TEST INDICAT 
AND/OR B: CBULe NOT se SEEK K SN Atte RSE DIRECTION. 


READ HEADERS, ALL TRACKS, CYL 0 


THIS TEST DOES NOT CHECK THE HEADERS, BUT ONLY THE FACT 
T HEADERS CAN BE READ CORRECTLY BY CHECKING CERR & DTE. 


THIS TEST IS VALID ONLY IF THE PACK HAS NOT BEEN ZERO*D OUT. 


BASIC WRITE/READ HEADER 8 HEAD SWITCHING TEST 


THIS TEST CHEC KS HEA HEAD SUITCHING g Bick WRITING UNIQUE HEADERS 
N EACH TRACK CK & VERIFYING THEY REMAINED 
ONTSUE. 22 SECTOR CF RHAT Fer iS 


1g. TRACK 9: ALL O°S FOR ALL SECTOR HEADERS 
TRACK 1: es FOR ALL SECTOR HEADERS 
TRACK 2: ALL 1°S FOR ALL SECTOR HEADERS 


BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 


USING HEAD O, WRITE 8 READ 20 SECTOR HEADERS BY WRITING ALL 
175 AS HEADERS. ATTEMPT TO FIND SECTORS 20 8 21. VERIFY 
THEY ARE NO LONGER THERE BY READING 22 SECTORS AND NOT 
FINDING 0°S AS DATA FROM THE PREVIOUS TEST. 


i 


a a ce ce re a a 
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a te a 
ture 
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TEST 26 WRITE & READ HEADERS CYL 0, HEAD O 


TEST 27 SEEK FROM CYL O TO 1 & READ HEADERS 
THIS TEST CHECKS MSG A 8&8 B WORDS 0,1,2 FOR CORRECT STATUS AFTER SDy 


1S RECEIVED FR FROM 8 A SEEK CH ch t9 DETERMINE 
THE HEADS MOVING 8 it CYL DIFF IS 1 


aT TER ATTN I D C BR XAMINED foe ey ERROF 
CYL a ITH fe PECE WED, a VERIFIED T 8 CYL Fore. 
IN MSG Be IS VERIFIED Re BE 1 
HEADERS ARE READ FROM 1 SECTOR, HEAD 0 8 VERIFIED THAT THEY ARE 
DIFFERENT FROM CYL 0 1 SHOW THAT THE HEADS DID ACTUALLY MOVE. 
TEST 30 WRITE 8 READ HEADERS CYL 1, HEAD 0 


TEST 31 TEST RECALIBRATE CMD & READ HEADERS 
THIS TEST DOES A RECALIBRATE & READS HEADERS. 
IT VERIFIES THAT WRITING HEADERS ON CYL 1 FROM THE PREVIOUS 
TEST DID NOT OVERWRITE CYL O HEADERS. 
AN ERROR IN THIS TEST INDICATES THAT HEADS: 

. A. MOVED TO A CYL OTHER THAN 1 

OR 8. DID NOT GET BACK TO CYL O 

TEST 32 SINGLE INCREMENT SEEKS TO CYL 410 
THIS TEST DOES SINGLE INCREMENT SEEKS OUT TO CYL 410 
WITHOUT ANY WRITING OR READING SO AS NOT TO INADVERTENTLY 
DESTROY DATA. 

TEST 33 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
THIS TEST VERIFIES THAT CYL 410, TRACK 2 CAN BE READ. 
THIS AREA CONTAINS BAD SECTOR INFO WHICH Is WRITTEN BY THE 
FACTORY DURING MANF. ALL BAD SECTOR INFO (BSE) WILL BE STORED 
F BSE INFO C BE OR R RE ; 
Ir IS DETERMINED THAT AN RL IGNMENT OBRTRIDGE IS USED, 


NG L 
PUTS FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 
THIS IS DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITI 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
THIS IS THE FIRST TEST WHERE THE READ DATA CMO IS PERFORMED 
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TEST 34 DETECT INNER LIMIT 
THs reat VERIFIES THAT THE LAST CYL_IN THE ABOVE 
TEST WAS 410 BY DETECTING INNER LIMIT AS THE ADJACEN 


T CYL 
fF. Hat Bae T a “heo is" not tip Jeena ON CHL 410 


3 AL 
To, aYOTD, “DESTEOTING BSE TNE OF A BLLOANENT Bre ARTEIOGE 


TEST 35 FORMAT PACK 
THIS TEST FORMATS THE ENTIRE PACK IN 22 SECTOR FORMAT BY 
FeO TOO WITS ATE TE (ALL TRACKS). 
WILL BE SHEPOEE. Tee = 
TEST 36 DECREMENT FROM CYL 410 TO 0 & READ HEADERS 
THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY 
SINGLE CYL INCREMENTAL SEEKS. 
TEST 37 SEEK FROM CYL 0 TO ALL MAJOR CYLS & READ HEADERS 


THIS TEST SEEKS FROM CYL O TO ALL THE MAJOR CYLS & READS HEADERS. 
IT THEN SEEKS CYL O & READS HEADERS. 


MAJOR CYLS ARE: 1 oe. = 1 (OCTAL) 


2 
- = 
8 19 
16 20 
32 40 
64 100 ' 
128 200 
256 400 


TEST 40 SEEK TO ALL CYLS FROM O & READ HEADERS 
TEST 41 SEEK TO ALL CYLS FROM CYL 410 8 READ HEADERS 


TEST 42 SEEK TO ALL KEY INVALID CYLS 
THIS TEST ene THAT "INV ADDR’ & “SEEK INCOMPLETE’ IS 
PRODUCED 8 THAT HEADS DO NOT MOVE OR UNLOAD IF AN ILLEGAL 
CYL IS SPECIFIED IN A SEEK. 
INVALID CYLS ARE 411 THRU 511 (10) IE. 633 THRU 777 (8) 


THIS TEST CHECKS KEY INVALID CYLS 411,412,416,448 & 480 
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6.0 


6.2 


FOR A FULL LOGIC TEST 
THE PR DOES UIRE FORMATTED PACKS AS FORMATTING 
IST PERFCRMED 1h ANY CASE. 


ANY TEST THAT MODIFIES STANDARD at Ws TTING IS FOLLOWED BY A 
eitnce UP’ TEST TO PUT THOSE CYL CK TO STANDARD 


ERROR REPORTING 


ERROR INTERPRETATION 


WHENEVER AN ERROR MSG IS PRINTED OUT, ALL REGISTERS 
OTHER DAT bara PERTAINING TO. THE ERR RROR ARE ALSO GIVEN. 

nee AC G B(O1), RKER, RKBA...ETC, INDICATE THE 

CONTENTS be" THE CORRESPONDING REGISTERS AT THE TIME OF 


EVERY ERROR MSG CONTAINS APC. THIS PC INDICATES THE 
POSITION IN te WHERE THE ERROR CALL 19 KoCoreD THE 


SHORT AND’MEANINGFUL. THE USER IS ADVISED TO LOOK UP THE 
PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE INFORMATION 
OUT THE ERROR. IN MANY INSTANCES, A 51 NGLE FAULT W 

0 THAN 0 ERROR REPORT. A LITTLE os: TBERGTION 
AND CAREFUL EXAMINATION HE baTR GIVEN Ite BE CERTAINL 
VERY HELPEUL IN PINPOINTING T FAULT. A BRIEF “EXPLANATION 

ING a KED IN IN HE Feu iS GIVEN 

oF HINTING? : HE NUMBERS cetEn TUTTH ERROR 
MSGS ARE IN OCTAL 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


ERROR PRINTOUT EXAMPLES: 
EXAMPLE #1: 


MSG AOD ERROR 
AFTER START SPINDLE CMD & FWD SET 


TEST NO. PC 
000014 016530 
EXPECT EXPECT pre? EXPECT EXPECT EXPECT EXPECT 
Bl Re Be 83 


AO Al 

030144 100000 013704 000091 

ACTUAL ACTUAL ACTUAL ACTUAL ACTUAL ACTUAL ACTUAL 
AO BO Al Bl Re Be B3 


UNTBUS ay ORIVE DIAGNOSTIC 
76 18:09 


DZREHC . P 


one A ee 0+ +0 8 0 Oh 8 es ee CID 
HRN 6 


= + b+ = 02 Be B+ Bo ho Bo hs hs es se he es es Be ee 
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140144 100000 101744 900001 
RKCS]_ RKCSe RKASOF RKER RKOS RKDC 
040200 000100 010000 c00000 o00000 co0000 


THE ABOVE EXAMPLE Neer St he & ACTUAL DATA FOR 
MSG REGISTERS AO, BO, & Bl. 


Be & 83 WILL BE TYPED OUT ONLY as 

RESCTRED IF THE CYL DIFFERENCE /OFFSET 

R SB HER D & SECTOR INFORMATION 1 § A bar tAeLe PARAMETER 
EXAMPLE #2: 
NO ATTN IN RKASOF 
AFTER UNLOAD CMD 

TEST NO. 

000003 "014330 
RKMR2 RKMR3 RKER  RKDS RKCSI RKCS2 RKASOF 
000144 100000 cocood 100101 ood2e oocid4 ocodde 


{ END OF DOCUMENT ] 
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~NLIST CND,MC,MD 
-LIST ME 


ABS, AMA 
;DEFINE SYSMAC MACROS 
$SWR= 167400 ;DEFINE SWITCHES 15,14,13,11,10,9,8 
$TN= 1 SET FIRST TEST NO. TO 1 


-TITLE UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 
5 ert GHT (C) 1976 
340) GI Tat Egy coe a al 


!sPROGRA BY GARY PAPAZIAN 


TH HIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
:*#PACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


:# 
- SBTTL OPERATIONAL SWITCH SETTINGS 


15 HALT ON ERROR 

LOOP _ON TEST 

ial ERROR TYPEOUTS 

ABORT DRIVE atl 20 ERRORS 
INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


OCR a ee ne 


ee ee ee ee ee ee oe ee ee ee ee 


SB8TTL SUMMARY OF STARTING LOCATIONS 


200 DEFAULT PARAMETERS 

204 DEFAULT pes TEAS & BYPASS TEST 1& 

INPUT oa AMETERS 

230 INPUT PARAMETERS & BYPASS TEST 16 

260 aun HOLE. We, ecedcnatewes MODE ONLY BYPASS 
270 SAME AS 2520" START BUT BYPASS TEST 16 ALSO 


we. 2. 2. 2 2. 2 2 2 
mT 
at) 
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BASIC DEFINITIONS 


~SBTTL BASIC DEFINITIONS 
ea _— OF THE STACK POINTER ### 1100 ### 


TACK= 11 
SEQUIV ent ERROR SIC DEFINITION OF ERROR CALL 
.EQUIV IOT,SCOPE SIC DEFINITION OF SCOPE CALL 
p#MISCELLANEOUS SEFTON, 
ATs T= DE FOR HORIZONTAL TAB 
fF Be FOr CARPTAGE RETURN 
<RLF= 200 AGE RETURN-LINE FEED 
PS= 177776 + ER OESSOR Bats WORD 
gEOuLY PS PSi 
TKLMT= 177774 $s STACK LIMIT REGISTER 
Erne 177778 PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 17757 HAROURRE SWITCH REGIST 
DOISP= 177570 “HARDWARE DISPLAY REGIS ER 
- GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 40 :GENERAL REGISTER 
Ri= %1 tt GENERAL REGISTER 
Re= “e ::GENERAL REGISTER 
R3= “3 :: GENERAL REGISTER 
R4= “4 ::GENERAL REGISTER 
RS= “5 ::GENERAL REGISTER 
mE “6 ;;GENERAL REGISTER 
R?= “7? NERAL REGISTER 
SP= %6 STACK POINTER 
PC= ad :PROGRAM COUNTER 
- PRIORITY LEVEL marnatiind 
Pro= ;;PRIORITY LEVEL 0 
PRi=z 40 :PRIORITY LEVEL 1 
PRe= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PRY= 200 ;;PRIORITY LEVEL 4 
PRS= 240 ::PRIORITY LEVEL S 
PRE= 300 ;;PRIORITY LEVEL 
PR7= 340 ::PRIORITY LEVEL 7 
x"SUITCH REGISTER” SWITCH DEFINITIONS 
Swi4= 400 
SwWiz= 20000 
SWi2= 100 
Swil= 4000 
Swid= 2000 
swog= 1000 
cwog= 400 
SwO7= 200 
SWOb= 100 
SwoS= 40 
WwOo4= 20 
Swoz= 10 
SWO2= 4 
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BASIC DEFINITIONS 


81 000 
BITI4= 40000 
BIT13= 20000 
BITle= 10000 
BITil= 4000 
BIT1O= 2000 
BITOS= 1000 
BITOS= 400 
BIT07= 200 
Bt TOb= 1 
TTOs= 4 
BITO4= 20 
BITO3= 10 
BITde= 4 
BITOl= 2 
BITOO= 1 
-EQUIV BITO3,BITS 
-EQUIV BITO8,BIT8 
EQUIV BITO7,BIT7 
EQUIV BITO&,BITE 
EQUIV Bt ioa’ etre 
EQUIV BITO4,BITY 
EQUIV BITO3,BIT3 
EQUIV BITO2,BITe 
EQUIV Bt TO) Bitty 
EQUIV BITOO,BIT 
U” TRAP 


-*BASIC “CP 
ERRVEC= 4 

RESVEC= 10 
TBITVEC=14 
TRTVEC= 14 


TPVEC= 64 
PIRQVEC=240 


-SBTTL RKO& CONTROLLER REGISTER DEFINITION 


LOe2 
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;*DATA BIT DEFINITIONS (BITOO TO BIT1S) 
T1S= 100000 


VECTOR ADDRESSES 
33 OTHER ERRORS 
ILLEGAL INSTRUCTIONS 


iz 
8 
2 
3 
38 


:: TRACE TRAP 

: BREAKPOINT TRAP SBPT) 
!tINPUT/OUTPUT TRAP (IOT) **#SCOPE## 
tO OULRTOR TRAP (EMT) *#ERROR*# 

$3 * 

‘ TRAP TRAP 

:: TTY KEYBOARD VECTOR 


;;1TY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 
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RKOE AORTROLLER REGISTER DEFINITION 
; $BASE=177440 
RKCS1= QO ;CONTROL AND STATUS REGISTER 1 
RKWC= 2 : WORD COUNT REGISTER 
RKBA= 4 :BUS POORE SS REGISTER 
RKDA= 6 s;DESIRED TRACK SECTOR REGISTER 
RKCS2= 10 ; CONTROL a STA La allt 2 
BKER= t§ : PAE Rec IeteRe 
RKASOF= 16 : ATTEN TION SUMMARY AND OFFSET REGISTER 
= 0 : DESIRED CYL REGISTER 
RKDB= 24 iat A BUFFER 
RKMR1= 26 IMAINTENENCE REGISTER Ri 
MRe= 34 REGISTER 2 (MSG LINE &) 
RKMR3= . — REGISTER 3 (MSG LINE 8) 
RKECPS= 30 sECC PoStT TON INFORMATION 
CPT= 32 ZECC PATTERN INFORMATION 
SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
. DRIVE CMDS 
SELDRV= 1 ;SELECT DRIVE (GET STATUS) 
PACK= 3 : PACK ACKNOWLEDGE 
CLEAR= 5 : DRIVE CLEAR 
OAD= 7 ; UNL 
SRTSPL= 11 : START SPINDLE 
CAL= 13 : RECALIBRATE 
OFFSET= 15 soere! 
SEEK= 17 
RDDATA= 21 ‘READ DAT 
ween = 23 igi Ost, 
WRHEAD= 53 a HEADER AND DATA 
WRTCHK= 31 WRITE CHECK 
GO= BITO ;GO0 BIT 
IE= BITS : INT RRORUPT ENABLE 
= IT : CON ROLLER READY 
BAlE= BITS ;BUS ADDRESS Bit 16 
BAl7= 8gITs : BUS ADDRESS BIT 17 
CDT= BIT10 : CONTROLLER ob A 3 TYPE (O=RKO6) 
CT0= BIT11 : CONTR OLLE T 
CFMT= BITle CON TROLLER DRI YE FORMAT (O=22 SECTOR, 1=20 SECTOR) 
DCPAR= BIT13 : SERCON PARITY — DETECTED BY CONTROLLER 
DI= BIT14 ;DRIVE INTERRORUP 
CERR= BITIS ; CONTROLLE 
CCLR= BIT1S : CONTROLLER CLEAR 
SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
DRVMSK= 7 ;MASK FOR DRIVE SELECTION CODE 
RLS= BIT3 : DESELECT OR RELEASE DRIVE IN BITS O-2 


BAI= BITY ;BUS ADDRESS INCREMENT INHIBIT 
SCLR= BITS ;SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES 


SEQ 0025 
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06-OCT-76 23:23 PAGE 26 
AND STA aTus REGISTER 2 BITS (RKCSe: 10) 


6 
7 P 
g ;UNIT FI ERROR 
;MULTI DRIVE SELECT 
GRAMMING ERROR 
NON-EXISTENT MEMORY 


WOwWwWMwmMMmMM 
O44 4m 4b 4-40 40 4b 48-4 


CHECK E 
‘DATA LATE ERROR 
ERROR REGISTER BIT DEFINITION (RKER: 14) 


0 Th FUNCTION CODE 
Fae INCOMPLETE 
EXECUT FUNCTION 
ORIVE DETECTED SERCON PARITY ERROR 


: DRIVE TYPE ERROR 
HARD 


BAD SECT ae ERROR 
; HEADER C_ERROR 
;CYL ADORE SS OVERFLOW ERROR 
; INVALID DISK ADDRESS ERROR: HEAD/CYL 
:WRITE LOCK ERROR 
:DRIVE TIMING ERROR 
; OPERATION (SEARCH) INCOMPLETE 
UNSAFE 
DATA CHECK 
STATUS REGISTER BIT DEFINITION (RKDS: le) 
BITO j DRIVE AVAILABLE (CONTROLLER IS SET IF 
THIS sPery IS RESET) 


BIT2 ‘ DRIVE OFF 
; AC LOW 


DWOWOWMOMWOWMOMOMMWMmoMwCMD 
0-40-44 4b 4-4-4 4 4 440-44 a te 
HH tt Ht Ht Hh 4 tt 4 HH Ht 4 
bb bb = 00 SIO UT GI rue 


MCUWMe-O 


3 

4 ;DC LOW 
5 ;DRIVE OFF TRACK 
6 :VOLUME VALID 

Pipe ; DRIVE 

8 DRIVE TYPE (O=RKO6) 

1 : WRIT CK 

1 ;POSITIONING IN PROGRESS 
1 : DRIVE ee US CHANGE 

1 ;STATUS VALID 


Woe 


17 MSG NAS 
RCE EVEN PARITY ON SERCON MSG LINES 
+B PAGHOST IC MODE 

: MAINTENANCE "SECTOR PULSE 

ANCE T 


CE dock 
‘MAIN TENANCE ENCODED READ DATA 
;MAINTENANCE ENCODED WRITE DATA 
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me nee ee + ee ee 


B03. 
7( 1006 -0CT-76 
TENSES Sp°RE RE 
PCAs BITI} 
PCDs BITle 
Pare = BIT13 
= BIT14 


RSet Es BSITIS 


-SBTTL DEFINITION OF DRIVE STATUS BYTE OO MSG A 


VEPTVESVS0D 
@ geass 
“vo 


uu r* 1] 


.SBTTL OEFINITION OF DRIVE STATUS BYTE 01 MSG F (RKMR2: 34) 


SSP= BIT4 
HDHM= 


aici 


YOOVVVOI0000 
at 
~ 
™ 
it) 


4-44-44 4-4-4 4-4 
o—->-+-e-e- OCD Nou 
LW-O 
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~SBTTL DEFINITION OF DRIVE status BYTE OO MSG 8 (RKMR3: 36) 


i 


me 
® 


1) —eCrn ob 00 88 te te 


=) 
ya 
ba] 


SVOVI9000 
8 syereg 

O-4 > -4 4 40-4 4 0-40-44 4 
444 4-4-4 4-4-4 -4 


Wor 


-SBTTL OEFINITION OF DRIVE STATUS BYTE 01 MSG B (RKMR3: 36) 


D. 
D.WCUR= BITS 
O.WGAT= BITE 
Roky atte 
-MHD= SITS 
D. XERROR= BITS 
D.TI6= BIT10 
D.PLO= BIT 


) 
EGISTER 1 BIT oP iNEriON TRA FREMRL: 22) 


SEG N37 


. 0627 


5 Oe Cor ENE AT ION pavers 
;PRECOMPENSATION DEL 

sEC ae 0 IS BEING READ OR WRITTEN 
SWRITE GATE 
;READ GATE 


(RKMR2: 34) 

;DRIVE AVAILABLE 

VOLUME VALID 
 ORTVE READY 
-ORIVE TYPE (O=RKO6) 
:DRIVE FORMAT 
+e ABLE ON 
:POSITIONING IN PROGRESS 
‘DRIVE STATUS CHANGE 


; SERVO SIG PRESENT 
ROS HOME 


S_HOME 
DOOR INTERLOCKED 
:CARTRAGE INTERLOCK 
SPEED OK 


ROS UNLORUING 


2 at DISK ADDRESS ERROR: HEAD CYL 


: L 

i DRIVE F 

s ILLEGAL FUNCTION CODE 

sDRIVE TREORe ES SERCON PARITY ERROR 

set LOCK ERROR 

: SPE LOSS 

:DRIVE OFF TRACK 
W UNSAFE 


;SECTOR ERROR 
sHRITE CURRENT AND NO WRITE GATE 
WRITE gare AND NO TRANSISTIONS 


SHEA FAUL 
;MULTIPLE HEAD SELECT 


x ERROR 
: TRIBIT ieRoR 
:PLO ERROR 
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MACYLi 27(1006) O&-OCT-7& 23:23 PAGE 22 S&G 0026 
DEFINITION OF DRIVE STATUS BYTE 01 MSG B (RKMR3: 36) : 
D.NMOVs Bite SEEK AND NO MOTION 
D.LIMD= BITI3 :LIMIT DETECT ON SEEK 
D.§ EUNE= SIT14 “SERVO UNSAFE 
.SBTTL COMMON MASKS AND OTHER BITS: MSG A (RKMR2: 34) 
4 OYE 076 rai ‘ EpOe wei 
. = i 
me spaee ices See Pt VALUE, BYTE 10 
MSERe 77770 TORI IVE SERIAL’ #, BYTE 11 
.SBTTL COMMON MASKS AND OTHER BITS: MSG B (RKMR3: 36) 
MN eabOs 17760 Be pODRESSY BYTE 10 
s 1 IT14 tec IGN SIGN, BYTE id 
M.SECT= “SECTOR COUNT, BYTE 11 
M.HEAD= 7000 : HEAD DECODE BYTE 11 
M.POR= BITIS : . MESS AB, ALL BYTES 
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MACY11 27(1006) O8-OCT-76 23:23 PAGE 29 
COMMON MASKS AND OTHER BITS: MSG 8 (RKMR2: 36) 


.SBTTL TRAP CATCHER 


L UNUSED LOCATIONS FROM - 776 CONTAIN A “.+2,HALT” 
tSCESUENCE TO pe ERE GeL TRAPS AND INTERRUPTS 
: #LOCATION a TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: | WORD Q ;; SOFTWARE DISPLAY REGISTER 
SWREG: _.WORD 0 ;;SOFTWARE SWITCH REGISTER 
-SETTL STBRTING ADDRESS(ES) 


asSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


ag 


2204 

HF BYTIE -. -BYPASS N-SQUARE TEST IN DEFAULT MODE 
ite PARSRT INPUT ALL PARAMETERS 8 START TESTING 
He BYTIGA ;BYPASS N-SQUARE TEST IN PARAM MODE 

hiv MOTST ;MODULE TESTS DEFAULT MODE ONLY 

~=270 BYPASS SEVERAL TESTS 

imp MDTSTA SAME AS 260 & BYPASS N-SQUARE TEST ALSC 


.SBTTL ACT11 HOOKS 


ey SESASLESSSSSSSESESSSSSESSASASSLARAASLSLARSFSSELESELASLALFELALFLFEFE 
HOOKS REQUIRED BY ACT1I 


SAVE PC 
$£NQAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“WORD. 100000 ;:2)SET Loc.52 TO 100000 
"=$SVPC tt RESTORE PC 


.21000 
.SBTTL APT PARAMETER BLOCK 


erin mae ATA CC 
SET LOCATIONS 24 AND 44 RED FOR AP 
rsneaneseanoaeanesenseneaseaeeseneetensessanennQnesennenesnenens 

.$Xz. :SAVE CURRENT LOCATION 

24 a POWER PAIL TO POINT TO START OF PROGRAM 

£00 :3EOR RPT S 

POINT TO APT INDIRECT ADRESS PNTR. 
SAPTHOR sSPOINT TO APT HEADER BLOC 
$X ;3:RESET LOCATION COUNTER 

ceeurasts trea {RESET LOCATION COUNTER 
SETUP AT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 


THD: 

SHIBTS: .WORD O ;;TWO HIGH BITS OF 18 MAILBOX ADDR 
MBADR: .WORD $MAIL ;;ADDRESS APT MAILB BITS 0-15) 
TSTM: .WORD e280. ;;RUN TIM ONGEST T 
AST WORD ay : ME . OF 





SPASTM: . 
SUNITM: . WORD 


PEAT EALT AL CAL CAL PALPAL CAL CAL eALiAl 
RUT Te 


= ss ee ee ee 
wn 
w 
oO 


a ia a 


iS&6 


Pe a PaRT 





ne ‘ LE? Eri 4006) - OCT-76 23:23 PAGE 30 
R BLOC 


.LIST MD 
[USE LOOP X TO OMIT JSR PC, SUBCLR 


THIS MACRO FILLS EXPECTED MSG AO.B0,A1l,81,A2,82 3 83 W 
a=b.0SC AFTER ATTN OR O AFTER ORIVE CLEAR’ OR ANY IMPLI 
NOTE: A CAN BE ANY BIT COMBINATION DESIRED 


THIS MACRO ASSUMES DRIVE MSG 90,80,A1,81 WILL ALWAYS BE TESTED 
USE A.C,D.E FOR 2s A0,80,A1,81 ERROR NUMBERS RESP. 
USE 6 T. Ae MSG AP &'PUT INFO INTO ’CYLDIF’ 
T:Be 18 REAp Nee B2 & PUT INFOR INTO "CYLADD’ 
I=T.83 TO READ MSG B3 8 PUT INFO INTO 'SECTOR’ & *HEADA’ 


Fs « ERROR DESCRIPTION> 


YL O Peers ERROR & 
L_ ADDR ERROR 
(ERROR DESCRIPTION» 


< 


Se ee ee ee wee ee ee ee ae ae ee ee ee ae 


‘SURG (LOOP ON ERROR) TEST A=BRANCH POINT TO RECONDITION DFIVE 
; B=JMP POINT TO RE-ENTER MAIN LINE 


SUSE DRCLR -X_~—=«TO OMIT CHECKING MSG AO,80,Al $ Bl 


‘ A=BLANK TO ORO AQ THRU Be 

3 A= NON BLANK TO OMIT CHECK TG AO THRU Be 

;D=BLANK TO CHECK AQ THRU Be IN DRCLR 
;D=NON-BLANK TO OMIT CHECKING AO THRU Be IN ORCLR 


SIDAE IS CLEARED ONLY BY RECAL & DRIVE CLEAR 


 AsC.FWD/D.REV 


ITH he gaa BITS SET 
ED SEEK 








5 
E 
F} 
$ 
S$ 
§ 


30 
91 
Se 
$3 
44 
ro) 
Pr 
97 
9g 
3s 


inti 
5 


ReDkee 


Sees 


2s bs Bs Bs 8 Be Be Be Be he he hs Os ee 
Orem momo cron a 
0 0 b= Bb bo bs 
LTO NICU Gore 


RECS ERR RRO 


1634 


O6-OCT-7& 23:23 PAGE 31 


py ‘13. 27(1006) 
TER BLOCK 


T PRRAME 


QUICK START SPINOLE. 


SQUICK SEEK. ENTER WITH CYL # IN RKDC : 
: QUICK REPETITIVE SEEKS 
B=FINO VALUE OF CYL# BEFORE EXITING 


QUICK UNLOAD 
SB=BLANK TO DO SUBCLR 8 LPCHK 
D=NON-BLANK TO BYPASS 


=uRHEAD/ «CFT! MRHERO? 

: USE WRHDR <A>.X TO OMIT CHECKING AD,80,A1,81 
 ASRDHEAD/<CFMT!RDHEAD> 

: USE ROHDR <A>,X TO OMIT CHECKING AQ,80,A1,81 


t RETOCYL/FRCYL 
'B=310 FOR TOCYL/311 FOR FRCYL 


=TOCYL/FRCYL , B=HEAD#, C = O FOR 22 SECTOR, 1 FOR 20 SECTOR 


ee ee esas 


;USE FSECA FS022,RDSEC,22 FOR 22 SECTOR FORMAT 
; USE FSECA FS020,Re0SEC,20 FOR 20 SECTOR FORMAT. 


te FEECE FNSEO; ReOSEC.cO FORGO SECTOR FORMAT 


2,RDSEC FOR 22 SECTOR FORMAT 
O;REOSEC FOR 20 SECTOR FORMAT 


SEG 0031 


GO3 
BSRBHE.PIZ® OPAZE CREST Es PORT + BB’ BAanc HBR aL obk 7“ PSHE? PAGE 9 s£2 2028 


fs AETEST WES ERT: deb 2B AUB, 


+--+ + — 


[eee 





, ws wd aoe OR ye Pi Sas Nak DOS PART 1 Or bak tonen, oe OCT 7% 23:23 PAGE 33 


A=CYL#, B=¥EADs 


et eet et oe 
ht 
ae 


er ov erser ere. 
DED UNE 


'SEEK TO MAJOR gy: ts TEMP3,T -FWO,D.REV,ASL,400,DEC.0 
SEE EK g TO ALL C TEMp MPS TEs, “FW BRE Y INC‘ 410: FE Ac 
:SEEK 410 TO ALL ‘Ri: dio mi MP4" TEMP3.D.REV,O-FWD, DEC, 3° INC, 410. 


ea S 
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a 


+ 0+ 0 «be 
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COMMON TAGS 


.SBTTL COMMON TAGS 


; REREEEAERRERAERELER ERE ES EEE SESELES EE EA EEE SLES EASES ELAS REESE ESS 
{ATHIS TABLE gle g VARIOUS COMMON STORAGE LOCATIONS 


:#USED IN THE PROGRAM 


-2=1100 
SCMTAG: 
TSTNM Be 5 
Bic: ‘eve 8 
SICNT: .WORD 0 
SLPADR: re 0 
pee : wre 5 
SITEMB: .BYT 
SERMAX: .BYTE 1 
SERRPC: .WORD Q 
SGbapR: WORD 8 
$SGDDAT: RO QO 
SBDDAT: .WORD 4 
-WORD Q 
SAUTOB: .BY 5 
SINTAG: .BY 
-WORD OQ 
SWR: .WORD OSWR 
DISPLAY: .WORD DDISP 
$TKS: 1 
STKE: 177562 
STPS: 177564 
STPB: 177 
NULL: .BYTE 0 
SFILLS: .BYTE 2 
SFILLC: .BYTE ile 
TPFLG: .BYTE OQ 
STMPO:  HORe 
STMP1: .WO : 
STMPe: .WORD OQ 
STMP3: .WORD 8 
STMP4: .WORD 
STMPS: .WORD OQ 
TIMES: QO 
CAPE: 0 


SESCAPE: 
$BELL: .ASCIZ ‘207><377><377> 
g : /?/ 


SCRLF: <ASCII <15> 
$LF: = cASCIZ «le 


;;START OF COMMON TAGS 


+ CONTAINS THE tert NUMBER 
H CONTAINS SUBTEST TTERATION COUNT 
5 3G0N TAINS § 


HONTaIN Es oe atl Ae 


3 sCONTA INS ITEM CON Alda 


;CONTAINS MAX. ERR 
: {CONTAINS PC OF efaS ERROR. FNSTRUCTION 
3¢ a OF \GO0D’" DATA 





!TTY KBD BUF 
bitty PRINTER STATUS REG. ADDRESS 
:;TTY PRINTER BUFFER REG. ADORES 
CONTAINS NULL CHARACTER 


FOR FILLS 
t } CONTAINS # OF FILLER EHARACTERS- REQUIRED 
AFTER A “LINE F 


pi gteent FILL CHARS. 


33” TERMINAL ava ILABLE” FLAG (BIT<07>=0=YES) 


::USER DEFINE 
i UBER FINED 
;;USER DEFINED 
i ER Fine? 
FINED 


5 USER DEF INED 

NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
ie FOR BELL 
; ;QUESTION MARK 
Shee 3 RETURN 


LS sneubcstacevesseuseennsnsaentiibensnsaseenseusensenanneseeene 


‘ABTTL APT MAILBOX-ETABLE 


« LELRELELREAEL EAA LRA LAF EA LALALELE LALA RL ELE LAE RERALEERERALERLERER 


‘EVEN 


SMAIL: 
SMSGTY: .WORD AMSGTY 


;;APT MAILBOX 
;;MESSAGE TYPE CODE 


SEG 


9024 


—ww 


“‘UNIBUS aw DRIVE DIAGNOSTIC PART 1} MACY11 27(1006) O6-OCT-7& 23:23 PAGE 35 SEG C035 
DZREHC . P 06-OCT-76 18:09 APT MAILBOX-E TABLE 


SFATAL: .WORD AFATAL tare ERROR NUMBER 
STESTN: .WORD ATESTN 


Be, we eee, ee 
MSGAD 





TABLE: TRENSENT TABLE 
: BYTE ENV i TENVI NMENT BYTE 
SENVM: .BYTE AENVM ;:ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG i TRPT SWITCH REGISTER 
er om Ma 
; Bi FE eT ieePU 
:# 11/04=01, j1/05=08. 2,11/20=03, 11/40=04, 11745205 
*% Q= 
H BIT soosdk 70208, £O9=07 
te BIT 9=FLOATING POINT. PROCESSOR 
ty BIT S=MEMORY MANAGEMENT 
émamSi: .BYTE AMAMS] 5 HIGH ADDRESS.M.S. BYTE 
SMTYP1: .8YTE AMTYP1 ::MEM. TYPE. BLKel 
s# him. TYPE BYtE  -- (HIGH BYTE) 
;* 308 = 
;* POLAR=002 
poo0c0 énaor 1: .WORD AMADR1 ;;HIGH abpRE Lar oo pees 
1 ** MEM. LAST rae we BY BYTES THIS WORD AND LOW OF “TYPE™ ABOVE 
l 090 BYTE ;;HIGH ADDRESS, M 
l 1245 000 SMTYPe: .BYTE AMTYPe ;:MEM.TYPE,BLKhe. 
1 o00000 2 $:MEM.LAS RODRESS, BLK#2 
1752 001250 00 5 BYTE 3 :HIGH ADDORESS,M.S:8YTE 
1753 001251 000 SNTYP3: .BYTE AMTYP2 ;;MEM. TYPE, kk3” 
1754 O01252 000009 MADR3: | AMADR3 ::MEM.LAST’ ADDRESS, BLK#3 
1755 001254 SMAMS4: .BYTE AMAMSY ::HIGH ADDRESS,M.S:BYTE 
1756 O01255 000 SMTYP4: .BYTE AMTYPY ;;MEM 
1757 001256 090000 SMADR4Y: :WORD AMADRY ::MEM.LAST ADDRESS 
1758 001260 900000 SVECTI1: .WORD AVECTI Hirer VE te seus PRIORITY#1 
17539 O0i262 900000 SVECT2: .WORD AVECTe UPT VECTO TOR#2BUS PRIORITY #2 
i760 OO1264 177440 SBASE: .WORD ABASE ORE OF EGUIPMENT UNDER TEST 
1761 O0le66 SDEVM: WORD ADEVM 
1762 001270 800000 SCDOW1: :WORD ACDW eu DESCRIPTION WORD#1 
1763 001272 900000 $CDWe: :WORD ACDW2  ;:CONTROLLER DESCRIPTION WORD&#e 
1764 901274 00000 SDDWO: .WORD ADDWO t EDEVICE DESCRIPTOR WORD#O 
1765 001276 900000 SODW1: <:WORD ADDWL °;;DEVICE TOR WORD#1 
1766 001300 900000 $ODW2: :WORD ADDW2  ;;DEVICE DESCRIPT #2 
1767 001302 SDDW3: :WORD ADDWS ::DEVICE DESCRIPTOR WORD#2 
1768 001304 9900000 SODW4: . WO ADDWH  +3:DEVICE DESCRIPTOR WORD#4 
1768 001306 900000 SDOWS: [WORD ADDWS ;:DEVICE DESCRIPTOR WORD#S 
i770 001310 900000 $00W6: <:WORD ADD PIDEVICE DESCRIPTOR WORDs6 
1771 001312 o00c00 $DDW7: WORD ADDW? :DEVICE DESCRIPTOR WORD#?7 
177¢ 001314 SETEND: 
1774 177440 ABASE= 177440 sDEFAULT BUSS ADDRESS 
1775 001314 000210 RKVEC: Ae ; DEFAULT CONTROLLER INTERRORUPT VECTOR 
1776 O01216 dooe40 RKPRI: PRS ITY : 
1777 001320 172540 PKS: 172540 :P=CLOCK STATUS REG 3 ce 


eee 
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APT MAILBOX-ETABL 


DRYPTR: 


172542 ip. LOCK SET B 

ion? PEL OcK READ BUFFE ER 
46 +E -ELOeK STATUS REG. 

ib oEt BK NT ERRORUET VECTOR 

tn K INTERRORUPT VECTOR. 

;MEMORY PARITY VECTOR 

Jay PARITY OPTION CSR Ffgeoal ADOR 
C FOR MEMORY CHECK ENABLE TRAP 


i} FOR 220 OR 230 START, NO DEFAULT 
1 FOR e} 0, 230, 270 agree 


PAG FOR eG Mid 1ST PROGRAM TITLE 


;CONTAINS THE POINTER TO THE DRIVE F 
He iy * ented ) OF THE DRIVE TO BE CHECKED NEXT. 


28 3 


“je 
ate 
o~ 
oO 
© 


TO CYL 
:CURRENT CYL, USED IN N SQUARE TEST 
REV CYL. IN N SQUARE TEST 
CALC CYL BIFF USED IN N SQUARE TEST 
cyt DIFF, RIGHT JUSTIFIED FROM RKMR3 
L ADDR’ RIGHT JUSTIFIED FROM RKMRG 
:CYL ADDR’USED IN FHDTAB ROUTINE 


;60 FOR 60 CPS 

;50 FOR SO CPS 

:LOADED TO SO OR 60 TO COUNT TO! SEC 

;OR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND 
;SEC COUNTER 

ic et ale TIME IS UP 

; PREVIOUS SECTOR 

EXPECTED SECTOR 

;SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
;SET_TO 0 TO RETURN TO SLPADR 

sIF SW14 OR 

;SET TO 1 {0 RETURN TO $LPERR 


1 TIMEOUT EONSTANTS 


ONdoOMN0000 0 O2O000 Orr r--— S 


o 
a 


Oo O00000 oO 


0 ;HEAD NUMBER 

) ;HEAD # FROM H.B3 RIGHT JUSTIFIED 

5 i SHIFTED D eho FOR FORMATTER ROUTINE 
0 
0 


sur rep fo TEORNAT FOR FORMATTER ROUTINE 


ee  EEEEEEEEEOEOEOEOEOEOEOEOEOEOEOEEeeeeeeeeeeee_—_—_—eeeeee ee 
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APT MAILBOX-E TABLE 


DATAG: QO sALL O°S 

DATAD1: Seses :0101 PATT 

DATA1: 177777 sALL 1°S 

WORD: . 0 ;HEADER/DATA WORD 

HOWD: 90 HEADER WORD FROM RKDB 

BSERR: O ;CANNOT READ BSE INFO WHEN SET 

LIMERROR: 0 ;LIMIT DETECT ERROR FLAG 

BYPCERR:0 ;SET TO 1 TO BYPASS CKCERR IN GSTAT1 ROUTINE 
BYPFMT: 0 : BYPASS FoR FORMATTING ¥ HEADERS 


;UNTIL BSE INFO HAS BEEN 
IF SET, BIT 14,15 = 1 


CHKFLG: 0 ;WORDS TO BE CHECKED 
HDTAB: _ 66. ;CALCULATED HEADER WORD T 
RHTAB: .BLKW 6&6. 
SRTTAB: .BLKW 66. 
SECTOR 0 BY SORT ROUTINE 


BSE22H: .BLKW 2Sé. :2e SECTOR HARDWARE BSE INFO. 
:2e SECTOR SOFTWARE BSE INFO 
: OVERLAYS MSG1 
INVCYL: ats” ; INVALID CYL ADDR 
4I¢. 
44g: 
480. 
UNLD +) O IF ARE LO 
fa 18 ¢ TF HEADS ORC ORGED 
BADHOR: O TO O IF FORMATTING 
‘Et TO 1 a ORMATT NG ALTERED 
HPEND: 0 :SET TO O IF HALT PENDING 


:SET TO 1 IF HALT PENDING 


th 3 FLAGS ARE USED 
‘By. *STOP’ ROUTINE TO a 
;THE CPU TO A VALID HAL 


ATTN: .BYTE + aia on ob 00 toe O08 ;ATN O-7 RESP. 


- EVEN 


S_FOR THE RK611 REGISTERS 


THE FOLLOWING ARE HOLDING REGISTER 
t THEY Y 1S REC'D FROM WROY ROUTINE. 


LOADED AFTER RD REC 


HCS1: 0 ;HOLD RKCS1 
HCSe: 0 ;HOLD RKCS2 


oa 


SOR ERSR EGR Bae 
é 


WWOWNOWOOWW 

2 bs bs be bs bb be 

WONMUWC Wwiueo 
fu 


SA 


SONAR 


20.00 
ietatay 


ae oe es be es ee 0 oe es 8 se 2 ee es Be be ho a 2 Be bs ae be Bs bo bs Be bo ee be Bs Bs bs ee 
22 0.0.0.0 
atest nN tebet ath 
Mure OwOoNnN 
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BBR 
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APT MAILBOX-E TABLE ; 


sHOLD RKWC 
ETC. 


; TEMPORARY STORAGE. 


35 
_ 
OooO00 OOOOOOVOOO0O000 


TEMPS: 

THE FOLLOWING ARE HOLDING REGISTERS FOR MSG A (0-3) 8 MSG B (0-3) 
9 
a 


BSBREEBS 


THE FOLLOWING ARE *EXPECTED’ REGISTER FOR THE ABOVE 


PUM ETT Er « ween cere rr: 
2D 
Oo 


wp ow 
Www be. 
OOOoOO000 


THE FOLLOWING ARE IDENTITIES FOR DRIVE MSG WORDS TO BE TESTED 
t.A2=BITO ; TEST MSG A2 IF SET 

T.B2=BIT1 

T.B3=BIT2 


ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


Ftae = at re iN BOE Sette MOO 


CH: 
ACTLI: O FLAG - SET WHEN IN ACT1L MODE. OF © OPERATION 
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SCOUT UARAASESE 6 
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200000 
900008 
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APT MAILBOX-E TABLE 


Pir; @ FLAG - SET WHEN PROGRAM LOADED BY PAPER TAPE 
DRIVS: O CONTAINS THE NUMBER OF ORIVES PRESENT 


;THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
;IS PRESENT AND IS TO BE TESTED. 


B+ 
- 
< 
y 
oO 


;FLAG SET TO 1 WHEN ORIVE C PRESENT 
;FOR VE 1 


proves 1] aa DRI 

Priva: iFOR DRIVE § 

DRIV4: ;FOR ORIVE 4 

DRIVS: ;FOR DRIVE S 

DRIVE: ;FOR DRIVE & 

DRIV7: 0 ;FOR DRIVE 7 

CLKF : e ;L-CLOCK FLAG PRESENT FLAG 

CLKF : :P-CLOCK FLAG PRESENT FLAG 

DOTIM: OQ :SET IF EITHER CLOCK ‘PRESENT FOR TIMING TESTS. 
SIZFLG: 0 :SET IF DEFAULT DO SIZING IN TEST 1 


“So 
fotut 


B3a 


o-- 


RPS wo SRE 


wo 


>= = 08 B= ho * oo hw + 2 O+ h 8 hh Os Oo Oo eh 8 = Oh ho hs 


BER O URE EERES 


8 


NON £tone-O 


StRTtRT Stee tet tet hy 
ee ee et eet et et et 


ror 
Co 
Choc 


an ee ee e+ oe eee 


MACY11 27( 1006) 
ERROR POINTER TABLE 


-SETTL ERROR POINTER TABLE 
pends TABLE CONTAINS THE INFORMA 
NFORMATION IS 08 
ae SITENG. tes purge 


hide 


m 
Prom | 


ERROR S$ 


aavg' say 


s;ERROR & 


8223 


= 
oe oe 
o 


a3 
oo -0--9- 


ee 
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;DETECTED MOS 


;DETECTED UFE 


;DETECTED ORR & NED RESET ‘WRONG 


;0R PRESENT BUT NOT SPECIFIED By 


;0R NOT PRESENT BUT SPECIFIED BY 


;ABORT TEST, COULD NOT REFERENCE 








ERROR ureer role — 
N THE TABLE IS PERTINENT. 

S (SERRPC 
S 4 POINTERS EXPLAINED AS FOLLOWS: 


;DR @ IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMRE 


PORT SELECTED?) 


OPERATOR 


OPERATOR 


CONTROLLER REGISTER 





| 
| UNTBUS RKOE DRIVE DIAGNO Tie PART | MACY11 27(1006) O6-OCT-76 23:23 PAGE 41 SEG 004 
= = 6 ' | 


| OZREHC.P11 © Oe-OcT-7e 18:09 ERROR POINTER TABLE 
i 
«see sERROR 10 
2023 0035 
| 76 980000 Bil ;DRA & NED BOTH SET 
| oe: ig 
| e087 ws 
| 58 mee sERROR 11 
2030 0036 7. sCONTROLLER NOT READY 
| coal Soseie decade Deis SFTER UNLOAD. CHD. 
| Es O03ei4% 87334 ae 
| BS poses ee as 
| 2036 003620 O06 ;NQ_ATTN 
| 3037 poseee beeese pais TAFTER UNLOAD CMD 
«#2038 003624 De7aa4 1 
Sud 0362 ERROR 12 
2040 ; : 
| S541 Sosess beste ate ;WRONG ATTN 
 -2D4e 003632 1g 
S043 OOS 06730 pti 
| OF 10 
 «~Fae sERROR 14 
| 2046 : ;DRDY NOT 
eOe OO340 DeN7ss Eui8 CLEARED 
2548 O03644 067324 OT! 
204 DF 10 
OO3E4E 060176 aot 
2051 OO3650 064754 Brie DSC NOT SET 
| ‘Bes Dosees Gevass O71 
eco ERROR 1b 
2055 0035 602 ; » 
E05 DCzeEs pease ai? ;MSG AC ERROR 
003662 067054 OT13 tIN UNLD 
ese OO3E64 D67454 Brea 
«BRED Oz OEDes cacti * 
| p061 O03€ rr M18 ;MSG BO ERROR 
Shes Bosese | berse4 Pre ;IN UNLD 
74 067454 
eee wiedh warens ;ERROR 20 
003700 O64364 aA? :MSG Al ERROR 
| 06? 003702 067054 ay ;IN UNLD 
003704 067454 13 
e0t3 sERROR 2 " 
0& O60264 ; e 
2071 002710 064354 iie0 MSG B1_ ERROR 
003712 067054 ee SIN UNLO 
5575 0037145 O€7454 OF 20 
aoe g0371 sERROR 22 
: 5 Seiete ;MSG A2_ERROR 
: IN UNLD 





ee ee 
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OZREMC.P1l  B6-OCT-76 12:69 ERROR POINTES TABLE | 
2077 g03722 O&TLI4 oT14 
ore SOREN Derée0 ~e ae 
7 1627 M4 :MSG 82 ERROR 
Ah are Bae a HR utc 
scee Geecas oiit oFe2 
S565 
E55¢ SERROR 24 
5086 003736 060277 : EMZ1 SCERR SET 
soe, Seseus Berea at sATER SCR 
e08s Beaoa5 BESSS oe ae 
553] 003746 060321 Eze SRLS DID NOT SET CERF 
5565 O05750 Dednee BHI 
S563 O0a7s2 OEEEDE oT] 
Ss 003754 OB7END OF1 
5096 ERROR 26 
556> 003756 060360 EMo3 /SRCK SET AFTER RLS SENT 
5542 O03760 DEdDES BHI 
S095 O03762 eee OT] 
£100 OOS7E4 Ob7eN0 OF] 
5158 LERROR 27 
5103 o604 EM24 :¥OL_¥ALIO NOT SET 
Sida O0a77 DES77s BHIS AFTER EMO 
Sids 003772 OT! 
Side O02775 DETER OFIO 
Sio? SERROR 30 ie 
5158 003776 EM2s SDRIVE TYPE SET IN “NRE 
5ids 904000 dedoee OHI 
S116 Oo4002 OeEEoe DTI 
STII Spa OF 
site SERROR 231 
E113 poynos oe0si2 EM26 SDDT SET IN RKDS 
5i15 Go4010 OedDee BHI 
Stig Oo40i2 OT] 
Si1e 004014 De7e40 OF] 
5113 SERROR 32 . 
5i1@ oo4o16 EM27 SDTYE SET IN RKER 
5119 O04020 Oe4oEE OHI 
£120 Oownee Desete OT! 
5131 Sptta OF] 
5155 ounce 60s wteiect ty ® DTYE NOT SET IN RKER 
5154 Sounee pessee BHI : 
5155 Deeb O11 
5156 O04034 DE7E4O OF 
ele? ;ERROR 34 
128 00403 EM2S SDTYE DID NOT SET CERR 
155 904040 Oe40EE SHI 
5150 So4p42 OT! 
513) 067245 OF! 
5135 SERROR 25 


i 





gS 


guGe Gee geee Gece Gaee gees Gee Gee 


8 


£ 
2NoP CHS LSE EHSR ZFRVSHK PREG EHSGR VRB 


BORK PONE BIG IIA FIN SSG GHERLO GGG VPA L OE OSH AEG SBBIRALE 2 
e 


rorururonororororororurfurururorururufrururorururururururururururfurururu nororurufnorurururorurufrufrorurufrurufurufuro 
Ds ae Be ne Be as be 8 ae Bae be Bs ae be bs Be be Be Be Be B= be Be Bt Be 8 Bat Bt Be bat bmn be Pe Be Be Be Bae he be be be Be Bb -8 Be Bae Be he Be Pe he he Be Be 


8 
e 
a 


paeryt ice 06-OCT-76 23:23 PAGE 43 SEG 0043 
ERROR POINTER TASL 


EM30 sC-D PARITY ERROR SET IN MR2 
EM31 ;D-C PARITY SET IN CSI 

;FAULT NOT SET IN MR3 

;C-D PARITY ERROR NOT SET IN MR 
EN34 ;D-C PARITY NOT SET IN CS! 

33 ;DCPAR DID NOT SET CERR 

Et SEE ee, 
;CYL DIFF. IN A2 NOT=RKDC 

sCYL ADDR IN RKMR3 NOT=RKDC 

N36 ;CYL DIFF IN RKMR2 NOT=CALDIF 
GY DIFE/OFFSET IN RKMR2 NOT CLEARED 


EM4O ;CYL ADDR IN RKMR3 NOT CLEARED 
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UNIBUS RKO& DRIVE DIAGNOSTIC PART 1  MACY11 27(1006) 06-OCT-76 23:23 PAGE 44 SEQ 0044 
DZREHC.P11  O6-OCT-76 18:09 ERROR POINTER TABLE : 
2189 OO4200 064734 17 AFTER RECAL COMO 
2190 OO4202 067114 OT14 
e131 004204 067520 OFz2 
te oo4206 060223 eee s ? AO ERROR 
2194 OO4210 O&5157 DHE SAFTER READ DATA CMD 
2195 OO4ele O67054 OT13 
219% OO4e14 067454 DF 20 
s13e couzi6 o60e sERROR Seg BO ERROR 
ts Seisi8 peoees Bree 
2200 OO4ee2 087054 OT13 
2201 O042e4 O67454 aa 2 
sete C0422 061410 : M43 sHEAD DECODE IN B3 NOT CLEARED 
2204 O042e30 064734 4 “AFTER RECAL C 
2205 OO4e32 O&7164 OTIS 
g60e GOMER 067554 
ERROR S4 
2208 OO4236 061437 EMYY - :B3 HEAD DECODE INCORRECT 
2209 OO4e40 064672 OHIE 
| $210 OO4e42 OE7IES or1s 
| Bell o44 54 DF23 
| pele ERROR SS 
2213 o04e4s EM13 sNO_ATTN 
| 2214 O04250 064735 OHI? IAFTER RECAL CMD 
| BeIS O04e5e OT! 
2216 OO4S54 067324 OF IO 
| Bel? ERROR SE 
| BB1B OO42SE 062561 EME4 MSG B3 HEAD REG NOT CLEARED 
2219 OO42ED 064354 DHE : IN UNLOAD 
2220 O04e62 067164 OTIS 
2221 OO4e64 067554 OF 23 
| FSS pouee peazes 3ERROR SF :MSG AO ERROR 
| Bee4 004270 OE4400 DHS !AFTER START SPINDLE CMD REC'D BY DRIVE 
2225 O04e72 087054 DT13 
| 5226 004274 O67454 20 
2227 sERROR 60 
| zee pou276 e083 ag MSG BO ERROR 
0644 5 
| 2230 00430e 067054 OT13 
| 2231 004304 067454 2 
Bee sERROR 61 
| Be33 -OO42NS O60e51 EM19 “MSG Al ERROR 
| Be34 604310 E4400 DH9 
| 2235 OO¥Sle 067054 DTi3 
| 3236 004314 067454 OF 
2237 sERROR 62 
2238 OO4316 060264 E20 MSG Bl ERROR 
2239 004320 O64400 DHS 
«Bau «OON322 067054 0713 
| z641 004324 067454 OF20 
4p sERROR 63 
2243 004 060223 EM17 


seb 
ee44 004330 OB4444 DH1O ;AT END OF HEAD LOADING 








~, 
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ERROR POINTER TABL 


sNO ATTN 
bx10 tAT END OF HEAD LOADING. 


sEWD "a a WITHIN 60 SEC FROM 


T 
SPINOLE CMD. 


DH11 ;AFTER START SPINOLE CMD & FWD SET. 


EMS1 ;FWO NOT CLEARED WITHIN S SEC OF MOTION 
DH1 :FROM START SPINDLE CMD. 


7 
4 ;AT INNER LIMIT FROM START SPINDLE CMO. 














ERROR POINTE 





; ERROR 
; ERROR 
;ERROR 102 
;ERROR 10 
; ERROR 104 
;ERROR 105 
;ERROR 106 
ERROR 107 
;ERROR 110 


;ERROR 111 
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;FWO NOT SET WITHIN 4 SEC IN RTZ PORTION 
:0F START SPIN CMD. 


;MSG AO ERROR 
AFTER SEEK WITH BAD PARITY 


;MSG_BO ERROR 
AFTER SEEK WITH BAD PARITY 


;FROM OUTER LIMIT TO CYL O DURING LOADING 


SPIN CMO. 
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DZREHC.P11 


O&-OCT-76 18:09 ERROR POINTER TABLE 


2387 ERROR lle 
2358 OO461E 060251 EmM19 :Al ERROR 
339 3} 7 = He sAFTER READ DATA CMD 
= 4 T 
7454 F 
;ERROR 113 
: 004626 pores EM20 ;81 ERROR 
sire Doles | SEShE, +f 
2366 OO4634 067454 DF 20 
eee 33 s ERROR tn? 
38 Seles 4672 DH1S ;AFTER LOADING HEAD REGISTER & SEEK CMD 
2370 004642 067054 OT13 
2371 067454 DF20 
d ;ERROR 115 
2373 OO464E pete es EMi8 
2374 OO4650 467¢e 16 
0O4eSe pe? 4 DT12 
, 004654 7454 DF 20 
;ERROR 116 
2378 OO4ESE 060044 EMle ;CONT NOT RDY 
064775 19 ;AFTER PACK CMD 
O&SE0S Tl 
2381 4 067334 DF10 
2282 sERROR 117 


5263 Souess 1 bud SPER SEL DR CMD 


e ; ERROR 


rm 
? 
. 
8 
—_ 


2288 76 EM12 
2289 904700 O65043 DH | :AFTER SUBSYS CLEAR 
399 60047 OT] 
2351 704 067334 OF10 
395 ERROR 121 
5335 004706 o60044 EM12 
2294 OO4710 O64409 DHS AFTER START SPINDLE CMD 
2295 004712 06 BTi 
2296 0047145 0672334 OF10 
2297 ERROR 122 
2296 O0471E EM12 
z 004720 O64642 OH14 ;AFTER SEEK WITH BAD PARITY 
2400 0047 OT1 
| 2401 004 067234 OF10 
|  puge ERROR 123 
| 8403 004726 063672 ENgg :NO DRIVES FOUND 
| e404 004730 64066 DH} 
| p40S OO4732e O66 DT] 
| B40 004734 067240 OF 1 
| eg ERROR 124 
08 004736 ocEcO44 EM12 
 p¥OS 004740 064734 OHI? sAFTER RECAL CMD 
6 o04742 DTI 
| pail 744 067334 OF10 
e412 ;ERROR les 
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SBBVRRE 


t 


Py 
Phas 
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ERROR POINTER TABLE 


;ERROR 1 
; ERROR 
; ERROR 1300 
;ERROR 131 

;ERROR 1 
;ERROR 133 
;ERROR 134 
;ERROR 135 
;ERROR 136 
;ERROR 137 


;ERROR 140 


06-OCT-76 23:23 PAGE 48 
;NO ATTN 
;FROM SEEK WITH BAD PARITY 


;NO DRVS FOUND IN DEVICE MAP 


;CYL_DIFF/OFFSET IN RKMR2 NOT CLEARED 


AFTER SCLR 


;CYL ADDR IN RKMR3 NOT CLEARED 
TRPTER SEEK cn 

;NO ATTN 

;NSG AO ERROR 
;MSG BO ERROR 
;NSG AL ERROR 
;MSG B1 ERROR. 
;CYL DIFF/OFFSET IN A2 NOT CLEARED 


;CYL ADDR IN B2 NOT CLEARED 








“SR 


EHSR SRBR PRS EHSR BOB BB 
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IVE DIAGNOSTIC PART 1  MACYLL 27(1006) 06-OCT-76 23:23 PAGE 49 
06-OCT-76 18:69 ERROR POINTER TABLE 
065140 DHS 
067114 DT14 
067520 OF 22 
sERPOR 141 
062114 EMS2 ;20 SECTOR FORMAT NOT SET IN RKMR2 
O&4ORS OHI 
Tl 
> 1 
ERROR 142 
062153 EMS3 SECTOR O NOT FOUND WITHIN SO MS 
64066 pul 
EOE Tl 
067240 1 
sERROR 143 
062204 ens DIFF SECTOR NOT FOUND WITHIN 3MS 
aC Hl 
O6Ef DTI 
0672 | OF 1 
4 ERROR Le MSG 82 ERROR 
SELES ate ge BB REC instagie 
EB0E DT} 
067334 OF10 


EEE 


00S 146 
005150 


a 


Perey Py 
SURE Oe 


aaa 


ORE 
WONnNMUI LC Wr O 
© suo 


we 
a ie 


i 
aS 
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OZREHC.P11 18:09 


06-OCT-76 


061642 


O6sseg 
sth: 
2 
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ERROR POINTER TABLE 


;ERROR 160 


06-OCT-76 23:23 PAGE SO 


;BETWEEN SECTOR COUNTS 


:MSG Al ERROR 
: AFTER SEEK WITH BAD PARITY 


;MSG B1 ERROR 


;MSG Al ERROR 


;NO_RDY 
;AFTER CLEAR CMD 


;ATTN NOT CLEARED 


; IDAE NOT CLEARED 
;AFTER RECAL CMD 


;CONT NOT READY 
;AFTER SEEK TO SELF 


;NO ATTN 


SEG 00SO 


2 
5 


o 


ODOR RR ORE REO ODDE ¢ 


e 


BoeReBR eS 


TRURURUN AUR CRURUN 
BBD GRA LOGOS 


at uat att 
Ew 


2 


et 


RKOG DRIVE OSTIC PART 1  MACYLI 27(1006) O6-OCT-7& 23:23 PAGE SI SEQ 0051 
Fe ee eT folks CRROR BS INTER TABLE 
00S27& o62417 EMSS sLIMIT DETECT NOT FOUND 
005300 O64OEE HL 
BpesaS l 
sERROR 161 
005306 060223 EMI7 :MSG AO ERROR 
19 57 DH38 :AFTER LIMIT DETECT 
1 7054 OT13 
is ERROR then 
995316 % ‘ Pfr :MSG BO ERROR 
5702 DH38 
005322 067054 OT13 
005324 067454 DF 20 
s;ERROR 163 
005326 06025! EM19 :MSG Al ERROR 
005330 065702 DH38 
005332 067 0713 
005334 067454 DF20 
;ERROR 164 
005336 O&0264 EM20 ;MSG Bl ERROR 
ee Bras aie 
005344 067454 te 
sERROR 165 
005346 060075 EM13 :NO ATTN 
005350 065702 DH38 
Hes EAS BH 
4 067334 DF10 
sERROR 166 
005256 EMO ;HEADS HOME NOT FOUND 
360 065702 DH38 
005362 06 OT1 
005364 067324 esi 12610 
005366 , PMG ;LOAD HEADS NOT FOUND 
005370 065702 DH 
005372 606 OT1 
005374 067334 DFO 
sERROR 170 
005376 063036 EM72 sFORMAT TEST BYPASSED 
005400 O66i155 DHYS ‘LIMIT DETECT ERROR ON PREVIOUS TEST 
005402 O66606 OT1 
005404 067424 OF 16 
406 60044 ERROR Tee NO_RDY 
419 OEE 245 HO ‘AFTER READ HEADER CMD 
4i9 Beesee Brio 
sERROR 172 
OOS416 061264 EM39 sCYL DIFF/OFFSET NOT CLEARED 
posHed DEE 45 30 :AFTER READ HEADER CMD 
4 7114 OT14 
o0s424 067520 
sERROR 173 


O0S426 O&2540 EME3 sDLT SET 
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| OZREHC.P11 06-OCT-76 18:09 ERROR POINTER TABLE 


pee733 DH30 
ete atts Bris 
sERRFOR 174 
00S436 060277 Emel ;CERR SET 
OOS440 065345 DH30 
ae HEE ERG Bis 
1 sERROR 1 
2613 OOS44E Db12E4 EM39 CYL DIFF NOT CLEARED 


2614 OO0S4SO OB4444 DH1O ;AT END OF HEAD LOADING 








- 
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| O2RERC. PL -oc%-7— Ig:0¢ PaeOR SINTER TABLE 
| Bers g0sH 7114 OT14 
Seie BeEWeS ee OFz2 
seit sERROR 176 
| 2618 OOSHSE 061321 EM4O CYL ADOR NOT CLEARED. 
«Bebe BES BESTT pig 
ses) OSES 067520 ERROR 1b 
c 30% : M72 sFORMAT TEST BYPASSED 
ses See Se S20 a SCOULD NOT READ BSE INFO 
SPSS ewsg pesos Be 
| Phe” ERROR 200 gt 
>< 3054 ie : 
| Bess seecs PEESeo Bu35 SAETER WRITE HEADER CMD 
| sea) Boeens posses oe 
| Bess LERROR 201 
| 2633 O0SS0E EM21 :CERR SET 
2634 peste 355720 byes 
Bes Sees 067365 A 
—-« BEBB «OOSSIE OB2E10 : MES :READ HEADER ERROR 
«BERS «005520 de40ee rf 
| EY Boeess beoase Br 
BE4e sERROR 203 ; 
| ge42 3 17 :MSG 80 ERROR 
BB oeeees S4g2 ace >DURING SEEK CMO 
| ees 005532 67058 OT13 
} ; 
Bae % jie oPtie :MSG BO ERROR 
a ee BS at 
eee poss44 067454 pai hs 
zs DOssYE 260251 : EML3 :MSG Al ERROR 
~ sc 4 
Bess 90555 SESce4 dT! 
ze5e O0Ss54 567454 ah 
See OOSSSE ED2E4 , E20 :MSG B1 ERROR 
2659 O0S5E0 Oes4é2 33 
cet HE Bi itt 
SEES once, 061113 — “Eras CYL ADOR IN RKMR2 INCORRECT 
2664 005570 966140 H2S ‘AFTER SEEK CMD 
Pees 355576 Oebtse OTH 
cres a s ERROR 210 ea, A 
ees Beene af: E140 Fre % 
2670 005602 06 OT] 


et a ee I LS 


coor oe oe + 
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| OPREHC.P11 «=——-OG-OCT-7& 19:09 ERROR POINTER TABLE : 
2671 OOSEOS 0&7 DF IO 
ab72 :ERROR 211 tei. aes 
zis BOS505 fa oBe ME? sREAD CYL O HEADERS ON CYL 1 
é (S 
75 Beets OSEE0E 5T1 
267% 005614 O67334 DF 10 
267 -ERROR 212 
2678 OOSEIE 061213 EM38 sCYL DIFF IN RKMR2 NOT = CALDIF 
e629 aoebe2 5 bus ‘DURING SEEK CMD 
36 £ Ty 
2581 005624 067320 DFE 
SESS Q0Ste peoee3 aed MSG_AQ ERROR 
; -) 
| SBES Sbebes Bbdess BH4 SEING RECA CHO 
2685 005632 067054 OT13 
| 2686 905634 67454 DFe0 
2687 sERROR 214 
2S88 DOS36 D023 EmM1g :MSG 80 ERROR 
| Be8S OOS64O0 O6e0e4 DH41 
2630 OO0Se42 067054 OT13 
2691 O0S644 67454 DF20 
| 2692 sERROR 215 
| E93 OOSE4E 060251 EMIS :MSG Al ERROR 
| 26% OOSESO Of6554 SHY i 
 «-Be9S 005652 067054 0713 
| g696 OOS5654 067454 OF20 
2697 . sERROR 216 
2698 OOSESE O602E4 EM2O :MSG B81 ERROR 
/ 2699 OOSEEO OGE0O4 BH4 | 
| g700 OOS&62 067054 OT13 
2701 OOS6E4 Of DF20 
| Bs 1213 jetty CYL DIFF IN RKMR2 NOTSCALDIF 
; =U 
«Boe Geese bbe523 Bra 
| g705 O05672 OfEse OT4 
23. Eczema ERROR 2o0 
j 4 u 
| 8708 OOSE7E M21 ;CERR SET 
| 2708 005700 O&4734 DH17 ;AFTER RECAL CMD 
| 2710 005702 OT1 
| 2711 005704 067334 OF 10 
| B71e sERROR 221 
| g7i3 oeG222 EM17 :MSG AD ERROR 
e714 08710 964734 DHI7 
 e7is 067054 DT13 
' 2716 605714 067454 DF20 
| 2717 sERROR 222 
| 8718 OOS71e 1 EM19 ;MSG Al ERROR 
2713 005720 064734 DH17 
2720 005722 067054 0713 
ere! 005724 DF20 
27 sERROR 223 F 
| 2723 O0S726 Ob1264 Fttag sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED 
24 005730 O64 #4 H17 
| 2728 005722 OT 


1 
005734 067334 OF 10 








Ee EEEEOOoOEEOEOOEOEOEOEOOOEEEEOEEEEEEEEeeeeeee—eeeeee 
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ERROR POINTER TABLE 








;CYL ADOR IN RKMRS INCORRECT 


;READING CYL 1 HEADERS ON CYL 0 


;NO_RDY 
;AFTER READ DATA CMD 


;CERR SET 


;CANT READ BSE INFO 
SON SECT 10,12, 14, 16,18,20 


;CYL_ADOR IN RKMR3 NOT=RKDC 
:AFTER SEEK CMD 


;CANNOT READ BSE INFO 
:0N Seer 0,2,4,6,8 


;UNEXP MEM ao TRAP 
:TEST #, TRAP P 


ALL R/W TESTS 





UNIBUS RKO& DRIVE DIAGNOST! 
1 OCT-76 18:09 


TREMC.P11 O&- 
2783 063015 
eres 06079 Oss071 
ree 7. Bess 

cee Spetes Besos 

790 Spe tee Beecae 
2791 OOS104 067334 
238 006106 061113 

734 DOE1IO Oe4e42 
2795 QOS112 O&6754 
er OOBLIN Ob? 320 
5798 06116 061213 
2799 006120 de4E42 
2800 06122 066754 
5601 O06124 067320 
ter 
Fak] 
2804 006126 061113 
PE0S 006130 dG5140 
250 OUI ze Obes 

134 067320 
2608 
2809 006136 063104 
2210 06140 4 
3811 00614 06 
eeie OOEIHH 067334 
5614 0061 
Seic Doeies beease 
5616 D061s2 Oeeene 
cei? DOGISH 067334 
5616 0061 313 
5254 SoeiEs SeEsaa 
PBel OOelée OeeEse 
eeee OOGIEH 067320 
1 

cet onbitt 
2826 006172 +] 
2627 O06174 067320 
Fee one176 062157 
5e5¢ poesos peedso 
2231 D06202 52 
eeze O0be04 067220 
PE24 OOG20E O&0176 
S625 06210 66230 
Pex OOeel2 ObeEse 
ez? O0kel4 067320 


MACY11_27( 1006) 
ERROR POINTER TABLE 


DF 10 
;ERROR 240 
EMG 


DH1? 
DT] 


ERROR ae 

; EM36 
DH14 
OTs 

sERROR 242 
M38 


DFE 
;ERROR 252 
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;RKMR3 NOT = R 
;AFTER SEEK WI 


;FAULT NOT SET 





;D0SC_SET 
;AFTER DRIVE CLEAR CMO 


ERS ON CYL 0 


KDC 
TH BAD PARITY 


;CYL OIFF IN RKMR2 INCORRECT 

;CYL_ADOR IN RKMRS INCORRECT 
EEK CMD 

;RTZ_NOT SET 

;DURING RECAL CMD 


pe ATTN 
;AFTER SEEK TO INVALID CYL 


SE4 00st 


SS 
te 


HO RUN se tent oeees 


ae 


: 


RKOE ORIVE RIAGNOS TIF PART 1 
Pil -0CT-76 18:09 


006216 
20 


06023 


. 
7054 
7454 


060236 


066330 
0670S4 
067454 


MACYL1 SCS) DE lr 23:23 PAGE $7 


ERROR POIN 
EM!7 


;MSG AO ERROR 
;MSG BO ERROR 
;MSG Al ERROR 
;MSG Bl ERROR 
;CYL DIFF IN RKMR2 NOT="CYL DIF’ 


;CYL ADDR IN RKMR3 NOT=RKDC 


;FAULT NOT CLEARED 
;AFTER DRIVE CLEAR CMD 


;CYL_DIFF_IN RKMR2 NOT=1 IN SEEK TO SELF 
;AFTER SEEK WITH BAD PARITY 


soy ADDR NOT CLEARED 
;AFTER READ HEADER CMD 


;MSG BO ERROR 





UNTBUS hr 


F 
: 


2a 
Ge 


Bae 


Dupubiupebupees 
2 = b= hb Ps be 
LOO NOU lure (9 

Bae os 
- 


fu 
ev 
i 


SANs 
: 


2 
e331 O0644e 
esse 44 





ORE RTS 


OSTIC PART 1 
18:03 


eof U4 
ERRO 
T} 
Fe 
ERROR 266 
M20 
DH2e2 
DOT13 
DF 20 
ERROR 267 
EM1g 
pus 
T13 
DF20 
;ERROR 270 
EM20 
DH3S 
OT13 
DOF 20 
sERROR 271 
ate 
DT13 
DF20 
;ERROR 27 
EM20 
DH30 
DT13 
DOF 20 
ERROR 273 
EM17 
DH22 
OT13 
DF 20 
sERROR 274 
EM19 
DHee 
DT13 
DF 20 
;ERROR 275 
EM1g 
DH17 
OT13 
DF20 
ERROR 276 
EM20 
DH17 
DT13 
DF20 
ERROR 277 
EM17 
DH39 
DT13 
DF20 
;ERROR 300 
—EM19 
DH393 


“OCT-76 23:23 PAGE SB 


;AFTER ORIVE CLEAR CMD 


;MSG B1 ERROR 


;AFTER WRITE HEADER CMD 


;AFTER READ HEADER CMD 


;MSG_RO ERROR 
AFTER DRV CLR CMD 


;MSG Al ERROR 


;MSG BO ERROR 
AFTER RECAL CMD 


;MSG B81 ERROR 


;MSG_AO ERR 
AFTER WRITE READER CMD 


;MSG Al ERROR 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 MACY11 27(1006) O8-OCT-7& 23:23 PAGE S9 SEG 00s9 
OZREHC.P11 O&-OCT-76 18:09 ERROR POINTER TABLE 


2951 od&S02 067054 0713 
2952 O06504 O67454 OF20 
2333 : s ERROR 30) ‘ 
sdec pepe? peRESE tet :AFTER READ HEADER CMD 
2956 OdeSi2 O670S4 0713 
008514 067454 
$e sERROR 302 
2959 006516 o060251 EM19 
2960 006520 o65345 DH30 
2961 O06522 67054 OT13 
o06524 057454 OF 20 
sERROR 303 
2964 OO6S26 061264 —M39 sCYL_DIFF/OFFSET NOT CLEARED 
2965 006530 065720 DH39 AFTER WRITE HEADER CMD 
2966 006532 067114 OT14 
2967 O06 
2968 ERROR 304 
2969 006536 061347 EM41 CYL ADDR NOT CLEARED 
2970 006540 065720 5H39 
2971 O06542 O67114 OT14 
2972 OO6544 O6 DF22 
2973 
| 2874 sERROR 305 
2975 OOSS4E 063334 EMBO ;UNLD NOT SET 
| 567— Ooess0 Oes7oe OH39 'AFTER LIMIT DETECT 
| 2877 006552 OT1 
| p97g 006554 067334 DF10 
| 2979 sERROR 306 
2980 OOESSE 063364 EMS] :SPIN NOT SET 
2981 OO6560 64400 DH9 AFTER START SPIN CMD. 
e982 00652 O&EEDE OT] 
2983 067234 
| BS84 sERROR 307 
| B98S5 OOBESE DEZ4Ie :RTZ NOT SET 
| B98 570 O66024 DH41 DURING RECAL CMD 
_  +p987 O06572 OE6E0s OT] 
| 2988 E74 067234 
| 2989 ;ERROR 310 
2990 O0&S76 063437 EMe2 ;READ HEADER ERROR 
| 2991 06600 064066 DH1 
2992 O06602 O66 079 
| 8993 006604 067510 OF 21 
894 ERROR 311 
| 2995 006506 EMg3 
299% OOSEI0 O64 DH] 
| 8997 006612 067012 OT10 
| 2998 O0GE14 067510 OF 21 
ERROR 312 
DO0GE1E 063477 Me4 sFORMAT NOT SET 
, 3001 065720 DH39 AFTER WRITE HEADER CMD 
| 3002 O06622 OEbEDE DT} 
| 003 067234 1 
3004 ERROR 313 
| 3005 063477 


OO&ELE 
3006 006630 065345 DH30 ;AFTER READ HEADER CMO 
























UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 MACY11 27(1006) O6-OCT-7& 23:23 PAGE 60 SEG CO&O 


DZREHC.P11 06-OCT-76 18:69 ERROR POINTER TABLE 
3007 O0&632 OGE60E OTL 
3008 OO6634 067334 OF IO 
308 s ERROR 314 
160 006636 062315 MS7 sWCE AT CYL 411, TRK 2,SEC 21 
3011 OOS84O0 O&4066 OHI 
3012 OO6E42 067034 oT12 
3013 OOS644 067274 OFY 
3014 ERROR 315 
xis OOEE4E 062351 EMSS ;SPOK NOT CLEARED 
16 006850 064754 DHI8 AFTER UNLD CMD 
3017 OO665e O66606 OT] 
3018 OO6654 067334 
$33 ODgES 063002 ERROR 31°70 SUNEXP ATT 
3021 OOS660 064400 DHS L AFTER CTART SPIN CHE 
| 2022 OOSE2 O66 OTi 
| 3003 4 067334 
3024 = ERROR 317 
se BoeeSe ar OHLi AFT SPIN CMD 8 FWD SET 
3027 O06672 O66605 OT! 
3028 006674 067334 DF1O 
3029 sERROR 320 
| 3030 006676 oE3002 EM70 
3031 906700 O64S32 12 sAT INNER LIMIT FROM ST SPIN CMD 
| 3032 702 DT] 
3033 006704 067334 OF 10 
3034 SERROR 321 
| 3035 906706 062002 E70 
| 3036 006710 064573 DH13 FROM OUTER LIM TO CYL O DURING LOADING 
| 3037 O06712 Ob DT! 
| 3036 006714 067234 OF 10 
| Ea 7 estore “Fis MSG Al ERROR 
i BbES pecess H16 inp LB HEAD REG 8 SEEK 
| 3042 Q06722 067054 OT13 
2043 006724 067454 DF20 
| sERROR 323 
3045 006726 O60264 MSG B1 ERROR. 
2046 006730 O64672 OHI 
47 Q0E732 067054 OT13 
| 3048 006734 067454 
| $5 oncve ossi4 ERROR aE ub MSG AZ ERROR 
«3051 006740 od64e72 DHI6 
3052 006742 067114 OT14 
| 3055 OO6746 061627 ; EMH? MSG B2 ERROR 
3056 006750 O64E72 OHIE 
3057 006752 067114 D714 


;CTO SET 
;WHILE WAITING FOR OR REC’D CONTR ROY. MSG A&B BAD 





| UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 MACY11 27(1008) O&-OCT-76 23:23 PAGE 61 SEG C06: 
| OZREHC.P11 06-OCT-76 18:09 ERROR POINTER TABLE 


3063 O0E7E4 067250 OF2 
re ERROR 387 
QOE7E 063313 M73 ;NED SET 
3066 906 3560 EMSE 
3087 006772 OGbE0E OT! 
3068 006774 067 OFe 


3 

76 ;ERROR 330 
ci Fis 
7000 63860 EMG 
007002 o66606 OT] 
3074 007004 067250 OF2 


;MOS SET 


q 








3076 


Bes 


Sona 
id fae We 


Sts 
te 
£o 


BIRREBRES 
pishsisheiich 
STBESRRER 


ORT 


Bbiad 


001342 


007166 


VE DIAGNOSTIC PART 1 
CT-76 18:09 


001336 


001340 


001336 
001340 


001342 


001340 
001342 


MACY11 27(1006) 


06-OCT-76 23:23 PAGE 62 
ERROR POINTER TABLE 


-SBTTL PROGRAM SETUP 


PARSRT: MOV 
CLR 


CLR 
BR 


BYTI6: CLR 
BYTI6A: MOV 
MDTST: ae 


MOTSTA: CLR 
MO 


START: ete 


¢ 
PRGSRT: ot 


PRGSRT 


PARAM 
#1, BYPTIE 
MOpTST 
PRGSRT 


#1, PARAM 
#1’ BYPT16 
MODTST 
PRGSRT 


BYPTIE 
#1, MODTST 
PRESRT 
PARAM 
#1,BYPT16 


81° MODTST 
PRGSRT 


ore 
ByPTié 
MODTST 


#STACK, SP 
#PRO, K tee) 
#1$,-(SP) 


;SET FLAG FOR 220 START 
;START PROGRAM 


;SET FLAG TO BYPASS TEST i6 


;CLEAR FOR 200 START 


;CLEAR ALL INT ENABLE & INIT 
:SETUP STACK POINTER 

:PSW LOADED TO BE 

:LSI-I1 COMPATABLE 


SEG 00te 


UNTBUS = ORIVE 2 as ue DE PART 1 MACY11 27(1006) O8-OCT-7& 23:23 PAGE 63 SEG 0063 
DZREHC . P 06-OCT-76 18:09 PROGRAM SETUF 


3103 007164 900002 RTI sENABLE ALL INTERRORUPTS 

11 737 «Os2SSe 1S: ISR PC, $TKINT TUP KB VECT R, PRIORITY 4 

ae a owre +E TURN By re Pi rERR Ra be 

as 

311s :##% CPU PRIORITY LEVEL NOW AT O ### 

3116 :##% ANY DEVICE WHICH SETS ITS  ## 

3117 !a## INTERRORUPT ENABLE BIT WILL *#* 

as eee SERVICED. £EE 

132 sCLOCK INTERRORUPTS WILL CHANGE CPU PRIORITY TO LEVEL & (IN 'STS’) 
zig! RKOb oggnre LER INTERRORUPTS WILL CHANGE CPU PRIORITY TO LEVEL S$ IN *SETINT’) 
sige KEY INTERRORUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 
ics SALL 'SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
aise -SYSMAC ’SETUP’ 

He Elie HE UR TD ae 

3156 007172 012706 001100 ty MOV nA, Ro 53F EFEST LOCATION TO BE CLEARED 

3130 176 O0S026 CL tacos LEAR MEMORY LOCATION 

: i 607200 022706 001140 ae = RE ;;DONE? ” : is 

ai 206 012706 001100 #STACK, SP renee TACK POINTER 

31 : INITIALIZE A FEW VECTORS 

3135 007212 012737 OSO&E4Y oD0020 MOV as $SCOFE STEEN : 5107 T VECTOR FOR SCOPE ROUTINE 

ES 220 012737 40 o00022 MOV aat 

31 7226 012737 051144 900030 MOV tecpAae EMTVEC : EM “VECTOR FOR ERROR ROUTINE 

3138 012737 000340 o0003e2 MOV #340 ORE NTHEC 2; ;LEVEL 

3139 007242 012737 OS4é62 090034 MOV #STRAP, I TREY Yc FRAP VECTOR FOR TRAP CALLS 

3140 007250 012737 000340 o00036 MOV #340 SRIRAEVECES: féveL 7 

sigs Bosses pis03> ppesas poonse aN SubuRVECre REVEL 7 Une VECTOR 

stds 007272 BiS535 Base 228 043544 MOV SENDCT, SEOPCT aii TUP END-OF-PROGRAM COUNTER 

3144 997300 095037 901174 CLR STIMES : INITIALIZE NUMBER OF ITERATIONS 

3145 007304 005037 001176 CLR SESCAPE ana THE ESCAPE ON ERROR ADDRESS 
Th Soeate bts939 at vised Nove 4 St pADR TAL ISE THE LOOP ABERESS FOR SCOPE 
ase a o1br? aares oot 10 SIZE FOR A wender ST TCH wea Se te PEOR LOOP tee 

ziec EQUAL #8 A "-1", SETUP FOR A SC THARE SWITCH RENO TER. 

tes DRPaSe BiSeae BS nennny NOV aberrveC (Se) i eeye P ERROR VECT VECTOR 

sie 7344 piste 177570 O01140 MOV t W cel ae FOR f HEROUBRE SWICH REGISTER 
3154 007252 012737 177570 O0114e MOV #ODISP, DISPLAY 3 AND RE DISPLAY REGISTER 

155 360 022777 177777 171552 CMP #-1, aSWR TRY fo HREPEREN (CE HARDWARE SWR 

31 7366 OC.Ole BNE 665 {BRANCH IF NO TIMEOUT TRAP OCCURRED 
3157 AND THE HARDWARE SUR IS NOT = -1 
3158 007370 03 BR 65$ : BRANCH IF NO TIMEOUT 

3159 007272 012716 oo7400 64S: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 

if0 eet prooes 000176 OO1140 &S$ oy SUR sPOINT TO SOFTWARE SWR 

ies 007406 0612737 000174 bt tue “MOV pisPrte,o DISPLAY’ 

163 007414 012637 oo0004 GES: MOV SP)+, SStRRVEC ” RESTORE ERROR VECTOR 
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lelé 
00 


001232 


Beter4 


000340 


000002 
172140 
000006 
000006 


043640 
001220 
0O0leee 
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001231 
001140 
000004 
O0000& 


000114 
000116 


000004 


000013 


MACYL1 27(1006) O6-OCT-7& 23:23 PAGE 64 SEQ c0S4 
INITIALIZE THE COMMON TAGS 
CLR SPAS : CLEAR pass COUNT 
BITB wsAPTSIZE,SENVM ::TEST USER SIZE UNDER APT 
BEQ 67S 2: YES,USE NON-APT SWITCH 
ss MOV 8SSWREG, SWR !:NO,USE APT SWITCH REGISTER 
MEMPAR: MOV #1$, ERRVEC ;SET TIMEOUT VECTOR 
Mov $PR?, ERRVEC+2 
MOV #MEMBAS , R1 ;ADDR OF MEM C 
oT ele mcs ELMEREAIEE @ 
V IHENERR MEMVEC Peo NERDY Ate kk VEE ror IF NO TIMEOUT 
MOV #PR7, MEMVEC+2 
BR 2s 
1$: CMP (SP)+, (SP)+ sADJ STACK 
23: ADD #2,R1 !TRY NEXT CSR 
chp RI: #MEMBAS+4O  ;SEE IF TRIED ALL 
MOV #ERRVEC+2, ERRVEC’ :RESTORE TRAP CATCHER 
CLR ERRVEC+e2 
ISR PC, CLRFLG :CLEAR DDUMP THRU SIZFLG 
CLR SDEVCT 
CLR SUNIT 


'FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 


START1: TST 
BNE 


1$: J 
2s: INC 


;DRIVE NOS. 
EX: 


1S: TYPE 


42 

1$ :BR IF AUTO 

PC, TITLE :MANUAL, TYPE PROG ID 

41,413 ?13=LOADED BY XXxDP 

DOUMP ;SET RKO& DUMP MODE FLAG 

altsce REPLACE DRO PACK W/SCRATCH & DO<CR> 
ST3 

PPTP ;SET ACT/APT/PTP DUMP MODE FLAG 


;CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 
;WITH OPERATO BE 


PLY TO "DRIVES TO BE TESTED’ SHOULD 


ei. 
SE ee BY COMMAS & TERMINATED BY <CR> 


VES TO BE TESTED: 1,2,4<CR> 


PARAM 

1S: :BR IF 220 START 

ST4 200 START, DEFAULT & SIZE THE BUSS 
MSG3 ‘DRIVES TO’BE TESTED 

Pc GDRVS : R NOS. 

MSG4 :BUSS ADDR 

Pc GBA T 


MAGS SCONT INT VECTOR 





| 
| 


| 





UNTBUS ae DRIVE DIAGNOSTIC PART 1 
OZREHC . P 06-OCT-76 18:09 . 


oo7es4 004737 O4Nle6 .” 
g00427 


0076E0 


ie aE 
37 


AULT ALL PARAMETERS. 
HE BUSS 


O6-OCT-7§ 23:23 PAGE 6S 00 
THE COMMON TAGS se0 008s 


;GET INT VECTOR 


‘au 
eye” PPE once BY XXDP OR OTHER. SET FLAGS 8 NO INPUT DIALOGUE. 
‘DEF TEST ONLY THOSE DRIVES THAT ARE READY 


;13=LOADED BY XXDP 

;SET RKO& CHAIN MODE FLAG 
;DRO NOT TSTD 

;SET ACT AUTO FLAG. 


;DEFAULT VALUE 
:DEFAULT VALUE 


;D0 “SIZE THE BUSS” TEST 


5 
br 
= 


ae 


RSA § 


Ge 


Mil 


B8t 


Bea i 


ee Bake 


ee a ee | ce ee ae ne ee 


ao 


a a? oe = 2 b= b= he hs he Oo 0 B= Oo a pe pe 


ooo 

moo oO © 
Tr == oe 
cor 2h 8 








IVE DIAGNOSTIC. PART 1 4 82,1906) O6-OCT-7£ 23:23 PAGE 66 SE N06é 
be-027-7 18:09 | Pnits HE COMMON TAGS 
005037 003316 STS: CLR UNLD ; INITIALIZE FLAGS 
605037 003320. CLR BADHOR USED IN °STOP ROUTINE 
905037 603322 CLR HPEND ‘FBR y VALID PROGRAM HALTS 
0 32 does56 001346 MOV $0810, DRVPTR : SETUP 
l2 CLR vc NO. OF DRVS 
001222 CLR SUNIT “CURRENT DRV UNDER TEST 
SrEoae 010540 oo00004 MOV 81S, ERRVEC :SETUP TIMEOUT ERROR VECTOR 
Sos77? Ach3ee Tet ahs :BEE IF L-CLOCK THERE 
005237 ; INC LELK ; PRESEN T, SET FLAG 
013700 001330 | MOV bEtEE RO : VECTOR ADDR 
012737 O10192 ooo004 MOV 533 ERRVEC 
777 \?7l27e TST PKS -SEE IF P-CLOCK THERE 
005237 003500 . INC iPRESENT SET FLAG 
013700 001332 MOV BEUES RO R ADDR 
060412 oF 2$ 
; 1S: CMP (SP)4, (SP)+ sL-CLOCK NOT THERE, CLEAR STACK 
I 010106 so0004 MOV #43 ERRVEC 
5 171244 TST aPKs :SEE IF P-CLOCK THERE 
905237 902500 INC PCLKF ; PRESEN Tse FLAG 
333700 13s MOV PCVEC .RO VECTOR 
£237 00350¢ 38: INC DOTIM : INDICATES TIMING TESTS CAN BE DONE 
0127 ‘7654 MOV @CLOCK,(RO)+ SERVICE ROUTINE FOR CLOCKS 
01271 MOV sPRE, (RO) i 
ps TST] ::G0 TO NEXT TEST 
peeeee 23: CMP iSP)+, (SP)¢ :P-CLOCK NOT THERE, CLEAR STACK 
as 3 
4$: CMP (SP)+, (SPi+¢ ;NEIT CLOCK THERE, CLEAR STACK 
902802 ELR DOTIM : TIMING TESTS CANNOT BE DONE. 
104401 OS644¢ TYPE —_, MSG13 *ALL TIMING TESTS BYPASSED 





a 















UNIBUS FROG ORIVE O[AGNOSTIC PART 1 MACYLI er 00) O6-OCT-7 23:23 PAGE 6&7 SEG 0067 
DIREHC.FIi = (OG-0C7-7E 18:5 BASIC CONTROLLER TESTS, SIZING 8 SETUP 
| 3275 .SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 
Hg . jtELTtitteteeee ase tnte ACL CONTROLLER RecieveRe 
| 1 ATE REFERENCE ALL CONTROLLER REGISTERS 
3282 :# 
| 3283 :* THIS alte. VERIFIES | THAT wh THE CONTROLLER REGISTERS 
| 3284 :* ra ak ean ACCESSED WILL 
HE :# seat IN IN Thre Fieeoyt rity, Bra ABORTI “ALL OTHER 
; 3 TESTS AND JUMPING 
| 3289 + RRSEEEESEDERPESERESPESPREREEASESRSESERERESEPERESEESESERSES EEE ES 
| 3280 910120 o4 téti: SCOPE 
| 3291 picts 12737 000001 O01174- MOV 1, STIME ;;D0_1 ITERATION 
«eB (l0LS0 Cle7de So1i00 NOV «aStACK.S ‘APSrORE STK PTR 
| 
| 32% 910134 o1 909000 MOV #PRO,-(SP) RESET PSW TO PRIORITY 0 
3235 518182 Bi Epa 010146 MOV “S$, ats 8 MAKE IT LSI COMPATABLE 
| 329 010144 d00002 RTI 
337 Oil Me cS: 
10146 012737 010264 900004 MOV #1$ ERRVEC ;SETUP TIMOUT ERROR VECTOR 
| Bes Bibles Bishae Aree Nov SBRSE RS SBETUP INDEX REG. 
| 3301 010160 765 TST arcel IRE) :REFERENCE ALL THE 
—« F302 «10164 005765 ppei¢ TST RKCS2(RS) ;CONTROLLER REGISTERS 
| =RES G1gi58 Gbesee Soo000 tet KBAR) 
3205 019200 Baebes 000006 1ST RKDA(RS) 
3306 010204 005765 90001e TST RKDS (RS) sTIMEQUTS IN THIS SECTION 
3307 010210 005765 900014 TST RKER (RS) INDICATE THAT THE CONTROLLER 
3308 010214 O05765 o000!¢ TST RKASOF (RS) ;REGISTERS CANNOT BE READ. 





% 
@ 
Fa 


AGNOSTIC PART MACY11 27(1006) O6-OCT-76 23:23 PAGE 68 
18:09 Tl 


| 
wa 
— 


uf 


a 


fu 
2 


aa 
20D IOP UN  Lutue-€) 
a Be 


i 
ia 


oOonon0 OO OOOOOOMO 


ar ee e+e ee ee ee ee ee eee — 


i 
3 







REFERENCE ALL CONTROLLER REGISTERS 


TST ——- RKDCCRS) , HOULD NOT PROCEED 
te BrBS (RE, TEST Ne Ee OES 
TST RKMRI(RS) 
Ter AMR (RE) 


TST = RKMR 
TeT EKECPS 
TST ——-RKECPT(RE) 
54 MOVs @BADTMO,ERRVEC SETUP TIMEOUT HANDLER 
a 36 TeT2 :°G0 TO NEXT TEST 
8: MP s«(SP)4.(SP)* «RESTORE STACK POINTER 
, EER a TABORT-COLLD NOT REFERENCE CONTROLLER REGISTER 
! OF i 





2 BONS 


ak Reae8 


© 
w 
< 


i 


“) 
rm 


& & 
2 


ooo 28080 OO OOOO 800 OOOOOO 80000 2800 O00O0O 


Pe er er eee re er re er ee ed ee rn ee ey er ee ee et ee ee rg ey ee ere er er eee eee er Ser eee aed ae 


SEP P22 2S F2z 
288 Bs ‘seh SFR 


DIAGNOSTIC PART | MACY LL 271 06-OCT-76 06 3 PA SEQ 0069 
27236 18:69 Tl Re PO Oe OCT ON PROP CER REGISTERS — 
‘+ BS ae get ecg Oi ett t+ tees att bile bed de daa ch i tbat ati 
; #TES SIZE THE BUSS 
te THIS TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
:* EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 
‘a Poe MODE 
+ werpouteR Roe Oo eERY TS/EXAMINED eno IF NOT SET. THE 
:# f ER Be 16 ue =a The PF PROGR MILL Evbass 
1 PEETENG Ghat DRIVE R WAS A RESULT 
:* MDS, UFE OR NED BEIN ae iff que mat One & DRA BeeET® TN 
i DICATING THE OTHER PORT IS ACCESSED. 
} ech 2 RSSpaenp ease enemum pees pes 
012737 000001 001174 MOV #1 STINES ; 1 ITERATION 
1 001100 MOV aStAck. SP ‘ip rApe STK 
001462 INC BY SpCERR :DO NOT TEST CERR IN ’FRDY’ 
132 900200 001231 BITE aG177, SENVI SEE F ee APT SELECTED DRIVES 
008137 910440 IMP 125 fe DO NORM SIZING OR VERIFY 
04401 oS6322 14$: ‘TYPE G10 :HIL TEST ORIVES 
boecae paesee CLR Brie 4 oF peive 3 PRESENT 
005000 éLR 
012701 003456 MOV #ORIVO,R1 Oey Fra 
013702 Oo012b& MOV SDEVM, Re !APT DEVICE MAP 
032702 000001 15$: BIT 881T0,Re :SEE IF DRV IN DEVICE MAP 
po1418 BEQ ist :BR 
005237 903454 INC R vs ELSE INCR DRIVE COUNT 
005211 INC :$ SET DRIVE PRESENT FLAG 
104401 001205 TYPE Fe RLF 
D104 MOV RO, -(SP) $s SAVE RO FOR TYPEOUT 
104403 TYPOS 2360 veE--ScTAL ASCII 
001 .BYTE 1 ::TYPE 1 DIGIT( 
006 “BYTE 0 :: SUPPRESS LEADING ZEROS 
721 168: TST (RL) :ADY POINTER TO NEXT FLAG 
60 INC RO s INC 
Deeroc 000010 CMP ag »RO TESTED? 
1452 BEQ 178 Bae IF YES 
006002 ROR R2 sELSE GET NEXT BIT OFF DEVICE MAP 
000756 BR 1S$ 8 TRY AGAIN 
905737 o024s4 178: TST DRIVS ;SEE IF MORE DRIVES PRESENT 
001402 BEG 18$ ; N 
000137 0112356 IMP NUDRV :ELSE EXIT TEST 
104126 18$: ERROR 126 :NO DRIVES FOUND IN SDEVM 
o00000 HAL T SETUP CORRECTLY & PRESS "CONTINUE" 
000137 007740 IMP STs :T AGAIN 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 1 MACYLI 27(1006) O6-OCT-76 23:23 PAGE 70 SEQ 0070 
DZREHC.P11  O6-OCT-76 18:09 T2 SIZE THE Buss 
3380 
3381 g10490 g1276s goog 900010 128: Nov #SCLR RKCS2(RS) :SUBSYSTEM CLEAR 
| Ee ot cy Bere sete 33 Heae ;FIND ROY 
| 3385 BI OMES hoe? 39 003504 eee IZFLG ee eee 
3386 O10466 OO1SE2 BEO ei :DO NOT SIZE, GOTO NEXT TEST 
3387 010470 104401 oSe322 TYPE MSG10 sWILL TEST ORIVES 
2288 gig47s 003454 CLR RIVS i# OF DRIV ES PRESENT 
l €LR :DRV 
3390 010502 012701 oos4se MOV #ORIVO,R1 :DRV FLAG 
3331 10506 18: 
3292 O10506 104415 SCOP! 
3393 010510 012708 001100 MOV sSTACK, SP sRESTORE STK PTR 
3395 010514 O1 O ‘090010 MOV aScLB RKCS2(RS) ;SUBSYS CLEAR 
| 3396 piped: pieess che 559938 MOV q10, TEMP: 
3337 010530 004737 ISR sFIND RDY 
3298 010534 104120 ERROR it :ROY NOT SET BY END. oF SCLR 
3399 010536 O10065 oo0010 MOV R ‘SELECT THE DRIVE AD 
3400 010542 012765 900001 oo0000 MOY esti DRY, Rees (RS! 
| 3401 019550 013737 001414 003372 MOV TEMP 
3402 O1055— 004737 044176 ISR Pe eat :FIND ROY 
| 3403 010562 104117 ERROR "NO ROY AFTER SELECT DR. CMD 
3404 910564 032737 100000 003334 BIT SCERR,HCS1 
| 3405 010572 oO1046 BNE 3 
- 3408 O10574 013737 003362 003272 MOY HMR2, TEMP) 
3407 010608 042737 eecees 003372 BIC #tC<DRVMSK> , TEMP1 
| 3408 O10610 O20037 372 CMP RO, TEMP :$/B SAME 
3408 010614 O010i6 BNE 3$ 
 Ril0 010616 TST RO 
| Ente 010620 001 ghie 4§ 
| H4l2 010622 005737 ooa4e ST DDPCH ;SEE IF XXDP CHAIN MODE 
| 3413 010626 001014 BNE 
| 3419 010630 005237 oos4s4 4§: INC IVS sINC DRIVE COUNT. 
«341s 019634 005211 INC (Rl) :SET DRIVE PRESENT FLAG 
 S41B 010636 104401 oo1205 TYPE S<RLE 
| 337 O1de42 O10046 MOV RO, -(SP) Hise FOR TYPEOUT 
| 3419 O10644 104403 TYPOS 0. YPE-=OCTAL ASCII 
245 Bi pe *BYT 2 Hi wie cease NG ZEROS 
| zee O10650 000403 BR cg 
1 737 044704 2S: R PC, BYP YPA 
ae bt DEEE rate ZBBoR l tor EcFeb BB OOF 4 Does NOT MATCH RKMR2 DR # 
| 3427 O10660 005721 cs: TST (R1)+ eae PTR TO NEXT DR. FLAG 
zic8 31 DBE 905209 INC RO tINC DR & 
1DGE4 Dez 000010 MP #8. ,RO 
3430 010670 001306 BNE ;MORE LEFT. 
3431 o1067e 005737 002454 TST bRIvS 
5435 518528 1 re EREOR 123 :NO DRIVES FOUND 
| 3434 019702 d00000 HALT :SETUP CORRECTLY 
34325 019704 000137 007740 IMP STs :8 PRESS *CONT’ 
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3436 

3437 919710 932737 001000 003336 28: BIT #05, HoS2 

233 flee pg3eks 000400 003336 BY #UFE,HCS2 

3440 010726 O01015 SNE 73 

3441 019730 032737 000001 003346 BIT DRA, HDS 

3442 0107 90191 BNE 8 

3443 0} 010000 903336 8IT NED, HCS2 

3444 910746 001424 BEQ 3 

3445 010750 900743 3k $ 

3 S 0107 004737 oO44704 6S: ISR PC, BYP :TYPE BYP DR 8 

ai38 te 1o40Ge ERROR 2 :MDS DETECTED 

a3 10760 ? BR $s 

3451 O10762 004737 O44704 73: ISR PC, BYP 

3452 O10766 104003 ERROR 3 ;UFE DETECTED 

Ea 010770 000733 BR $s 

3455 01 37 010000 003326 &$: BIT #NED,HCS2 

Suze bita08 | Beists Beg 

3457 011002 104401 osés4i TYPE MSG15 :DRV 

a5 O11008 O1o046 MOV RO, -(SP) ee RO For TYPEOUT 

3460 011010 104403 TYPOS ::G0 T YPE=-OCTAL Ascrl 

3461 bi i0l¢ 1 BYTE i +} TYPE iPenese teaot 

3462 01101 “BYTE S : Dae ZEROS 

3463 011014 104010 ERROR 10 are H SET 

a164 011016 000720 BR $ 

3466 011020 004737 O44704 9g: ISR PC, BYP 

3467 011024 104004 ERROR 4 sNO DRA & NO NED = OTHER PORT SELECTED 
3468 011026 600714 S$ 

ai65 011030 000137 011356 10S: IMP NUDRV 

3471 $3 | SELES SSEEKSSELERSASSELESSLESRAFARAEREASERERAAALAAEAALALERELALEAEE 
272 ; ETEST 3 VERIFY OPERATOR DRIVE SELECTIONS 

3474 1 THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 

3475 1 DEFAULTED. EVERY DRIVE FROM 0 T0 7 IS ADDRESSED 8 

3476 1 CONTROLLER ERROR (CERR) IS EXAMINED, F 

3477 1 # GRAM ASSUME THE DRIVE IS IT WILL THEN CHECK 
3478 1 # TO SEE THAT THE DRIVE WAS INPUTTED FOR TESTI IF Or IT WILL 
3479 * WAS SET. THAT DRIVE WILL BE BYPASSED 
3480 1% ONLY IF T OR RESULT OF MOS OR UFE SET OR BOT 
3481 : NED 8 DRA RESET (WRONG PORT). IF CERR IS A RESULT OF 
3462 i NED ONLY, IT IS CHECKED AGAINT THE INPUTTED INFOR TO 

ses i VERIFY If WAS NOT SPECIFIED. 

34eEs : « SSSKRZLFRSRALS SHA LRARSE SEA SSSA RALARLAEAEAASALAASASEAEAALALELAATFZ 
3486 011024 op0004 téT3: SCOPE 

2487 011936 012737 000001 001174 MOV #1, S$TIMES ::D0 1 ITERATION 

3488 011044 012706 ‘001100 MOY aStACK, SP s RESTORE K PTR 

3423 011050 o0So000 CLR R Eive RE OBR 

3480 011052 012701 ooa4se MOV #ORIVO,R1 t DRIVE FLAG 

3491 Ol105¢ 1S: 
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ov 
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SS 
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I 
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4 


7068 001100 


oOo Or 
—— OC 


000040 
73? 901414 
044176 


38 
fy 


“IN Re ein  ) 
QIRGE Geleniyes 


000010 
Rerata 

1414 
044176 


CQoor- 
be 
wry 


100000 
003362 
177770 
003372 


8 
Mw 


8 BS 


000010 


SR 
is 


044704 
0034S4 
004737 044704 
es 001000 
baerse 000400 
032737 000001 
001006 

010000 


000404 
032737 010000 


004737 044704 
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000910 
003372 


Bbare 


003334 
003372 
00337¢e 


003336 
003336 
003346 
003336 


003336 


HO6 
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SCOP1 
MOV sSTACK, SP sRESTORE STK PTR 
MOV #SCLR,RKCS2(RS) 
MOV T10, TEMP! 
JSR PC. FRDY :FIND RDY 
ERROR 120 !NO RDY AFTER SCLR 
MOV RO, RKCS2(RS) -DRV ADDR 
MOV sSELDRV RKCS1(RS} 
MOV T10, TEMP 
JSR PC FRDY ;FIND RDY 
ERROR 11 !NO RDY AFTER SELDRV CMD 
BIT #CERR,HCS1 
BNE 2 
MOV HMRe, TEMP] 
BIC 8tC<DRVMSK> , TEMP! 
CMP RO, TEMP1 °S/B SAME 
BNE 
118: qs (RL) 
4g: TST (R1)+ ;SHIFT PTR TO NEXT DR FLAG 
INC RO INC ORS 
CMP #8. ,RO 
BNE 1 ;MORE LEFT 
BR TST4 ::GO TO NEXT TEST 
33: JSR PC, BYP ; TRY BYPASS DRIVES 
ERROR fed :WRITTEN DR# DOES NOT MATCH PKMR2 ORs 
BEG 4g ;BRANCH IF NOT SPEC BY INPUT 
128: DEC DRIVS !DECREMENT TOTAL DRIVS 
CLR (RI) :CLEAR DRIVE FLAG 
BR 4§ 
S$: JSR PC, BYP 
ERROR 5 ;DR PRESENT BUT NOT SPECIFIED 8Y OPERATOR 
2s: BIT #MDS, HCS2 
BNE z 
BIT sUFE,HCS2 
BNE 
BIT #DRA, HDS 
BNE 8$ 
BIT #NED,HCS2 
BEQ 9 
BR 10$ 
QS: BIT #NED,HCS2 
BEQ 11 
10$: TST (RL) 
BEG 4g 
ISR PC, BYP : TYPE BYPASS DRIVE® 
ERROR os 


a a 


SEG 0072 


ea ne ee re eS 


ee eee ee ee 
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3S48 Bi iaes 004737 044704 6$: JSR PC, BYP ; TYPE BYPASS DRIVES 

3$48 Qll33e 104002 ERROR 2 ;MDS DETECTED 

ay 011334 000762 BR 8$ 

3352 011336 aes 044704 7$: JSR PC, BYP 

3553 Q1l34e 104003 ERROR 3 ;UFE DETECTED 

see 011344 BR 8$ 

3SS6 011346 004737 044704 98: JSR PC, BYP 

3857 0113Se 104004 ERROR 4 ;DRA & NED RESET - OTHER PORT SELECTED 

3558 011354 000752 BR 8s 

3353 

3501 

3562 THIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH 

sees ‘DRIVE PRESENT 

3SE5 SUNT CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 

3556 UNDER TEST 


UNTBUS Te DRIVE 0 5’ ag PART 1 


I 
06-OCT-76 


3568 011356 005037 001462 


3$76 
3873 
3580 011362 
2381 Bi ise 
3382 011372 
3S83 011376 
3584 011404 
3585 
3586 O1i14le 
3587 011416 
3588 011420 
3583 011424 
3590 
3531 911430 
33e 011434 
3533 011440 
33344 011442 
3595 011446 
3S3% 011450 
3597 011452 
3598 011456 
3599 011460 
2600 011464 
3601 011466 
3602 O1147e 
204 Ollsoe 
3605 
3606 911504 
3607 011506 
3608 011507 
3619 011510 
2611 
3612 
3613 
3614 
ats 

16 
3617 
3618 
3e33 

20 
sbe1 011514 
sb22 O11S16 


104401 


000004 
012737 


009001 001174 
0011 


000004 O0i214 
000004 001102 


003454 


O5664e 
043516 


001346 
00i220 


001222 


001205 


ooooof 001174 


JO6 
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VERIFY OPERATOR DRIVE SELECTIONS 


NUORV: CLR BYPCERR 


;ENTER HERE FROM LAST TEST 
:8 TEST CERR IN ‘FRDY’ 


5 RELAALAAELARAAS AERA LA AAALERALA FAA LE RERELALLLAELERALESLRARALELES 


t STEST = 


FIND NEXT DRIVE TO SE TESTED 


i THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
i THROUGHOUT THE FOLLOWING TESTS, THE ORIVE TESTED IS 
# 


THE ORI 


WHOSE ADDRESS IS IN 'SUNIT’ 


cole Sp pe oe igep pan asm 
OP 


T4: 


V #1, STIMES 
MOV #STACK, SP 
MOV #STN-1,$TESTN 
MOV #$TN-1, $TSTNM 
TST DRIVS 
BNE 4 
TYPE MSG19 
IMP $E0P1 
4 MOV DRVPTR, RI 
TST SDEVCT 
BEQ 2$ 
1$: N SUNIT 
es: S (R1)+ 
BEQ 1$ 
TST DDPCH 
BEQ 
TST SUNIT 
BEQ 1$ 
3S: MOV Rl. DRVPTR 


TYPE mSG1S 
MOV SUNIT.RO 
MOV RO, -(SP) 


8B 
-BYTE 0 
TYPE , SCRLF 


+:00 1 ITERATION 
‘ipSrdRe STK PTR 


say fad Me PRESENT? 


SACL BRIVES TESTED 
NO, GO TO END 


;ADDR OF NEXT DRIVE FLAG 
:1S FIRST DRIVE BEING CHECKED 


:YES, BRANCH 
INCR DRIVE BOR. TO NEXT DRIVE 
:1S DRIVE P 

:NO,FIND NEXT BRIVE PRESENT 

:DDP CHAIN MODE? 


:NO BRANCH 
‘YES, IS I T ORIY E 0? 
F YES. DON’T TEST DR 


LIF 0 
Lut Ae POINTER TO THE NEXT DR. FLAG 


DRIVE: RO FOR TYPEOUT 
3360 T YPE--OCTAL ASCII 


Nn eae oe yg Og oe eetamanamesennmnne tr 
T5 UNLOAD DRIVE’ TO BE TESTED 


kTE 
-& 
is tats FOR. BIN 2 Ve ick "Cafe RE FROH Tee XCORRECT DRIVE. 
°% 


PROCEEDING. 1B THE NEXT T 


“To 80° LOW BEFO 


© LERLL REALE ELAAERAERA LL AKER EL AE KAAL RA LAAL EERE RE RERLAAALERERAEREE 


+é15: SCOPE 
MOV #1,$TIMES 


;;D0 1 ITERATION 


SEQ 0074 





i er — 


a 





UNTBUS RKO& DRIVE DIAGNOSTIC PART 1 
O0&-OCT-7& 18:09 


DZREHC.P11 
3623 011524 
624 
sbeS 011530 
3626 
sb2e7 011534 
3628 011540 
2629 
3630 011542 
3631 911550 
3632 O11556 
3633 011562 
3634 011564 
3635 011570 
335 11572 
Sse OL1E7e 
3639 
3649 911600 
3641 sae 
3642 011614 
2643 Olléee2 
3644 011626 
3645 011634 
3646 Biieas 
3647 QO1164e 
S648 011644 
3649 Oilb46 
350 
3651 
3652 
3653 
3654 
3655 O11646 
356 
3657 
3658 
3659 
369 
3661 
sb&e 
3663 
3664 
SEES O11646 
3666 911650 
3667 O11656 
36 11662 
a6 Bi ieee 
3671 
3672 011670 
3673 011674 
3674 9011702 
3675 011704 
2676 011712 
3677 
3678 011714 


012706 
005237 


004737 
104024 


012765 
013737 
004737 


012737 


001100 
003316 
O46 106 


000000 
003372 


rats: 


p 


003362 


) 


oor 
oor 
Mow 
o 


8 


001174 


003362 
003424 


003424 


_ PFSRT: 
-SBTTL STATIC & CYCLE UP TESTS 


KO6 
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TS UNLOAD DRIVE TO BE TESTED 


MOV eSTACK, SP 


INC UNLD sUSED TO CHECK VALID HALT 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV #UNLOAD, RKCS1(RS) ;UNLOAD CMD 
MOV T10, TEMP 
ISR PC, FRDY FIND RDY 
ERROR 11 PRDY NOT SET AFTER UNLOAD CMD. 
JSR PC, TSTATN 
ERROR 12 :NO ATTN AFTER UNLOAD CMD 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV STMPO ;SETUP TIMEOUT, ALL 1°S 
64S: MOV cet RKCSI(RS) 
MOV #1, RK RKAR I ( (RS) ;SELECT WORD 1 
JSR PC'GSTA 
BIT AO SPOK. HIRE : SEE IF SPEED OK GONE 
BEQ 6S$ BR IF Ye 
DEC STHPO tEL mh AGAIN IF TIME NOT UP 
ERROR 315 ;SPEED NOT DOWN BY TIMEOUT 


6S$: 


;ENTER HERE FOR POWER FAIL RESTART 


eT TNA NOEFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKM 


ATE REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR2 
+ CHECKS THE ABILITY TO REFERENCE ALL 
i DRIVE REGISTERS AND THAT THEY CONTAIN CORRECT STATUS. 
METESTETETITITCT ESTOS TS TS TT TTT TESTS TTT TTT TTT TT TTT TT Tt ett tte! 
tST&: SCOPE 

MOV #1,STIMES ; 1 ITERATION 

MOV #STACK, SP iP erORE STK PTR 

JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

JSR PC, GSTAT 

BIT #D. VV, HMRe 

BNE ;BR IF VV SET 

MOV #0.DRA,E.A0 :LOAD EXPECTED VALUE FOR AO 

BR c$ 
4$: MOV #<D.DRA!D. VV? ,£.A0 
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To & bbb pe — op 


BERNE SERSS Sale daa 


ree Bieter 
a8 BiSor 
3725 012100 
3726 012104 
37e7 Olelio 
3728 Olelle 
3723 Qlellé 
3730 Oleled 
3731 Olelee 
373e Olele4 
3733 Olelet 
3734 012130 


7 


001364 


001432 


003430 
003432 


003436 
003442 


006.01 


001174 


000026 


_ 27( 1006) 
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PAGE 7) 
REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMRS 


cs: CLR E.80 -EXPECTED MSG BC 
mV 6<D. HoH 1D .prentd pe -CART> .E.Al ;EXPECTED MSG Al 
#2,£.82 EXPECTED MSG Be 
MOV #3,£.82 EXPECTED MSG B32 
ISR PC. CHKMSG ; CHECK NSGs fo B0,A1.B1 
-WORD «6: T. Ae! 7. B2!T.83 ScS SPECIFIED 
RROR 1g NS 80 ERR BRC FOR DRIVE ONC ORBED 
RROR 1 
ERROR 20 MSG Al ERROR 
ERROR 21 :MSG B1 ERROR 
TST CYLDIF ;SEE IF MSG A2=0 
SCOR oo iBR 7 ‘or EARED FOR DRIVE UNLOADED 
4S: rs YLADD ites id se gbEF 
ae ERROR 23 MSG 2 ‘NOT CLEARED FOR DRIVE UNLOADED 
, CMP HEADA, #1 ;FOR HEAD 0, B3=1 
BEQ TST? ::GO TO NXT TST IF_YES 
ERR cb :HEAD REG IN B3 NOT O IN UNLOAD 
3 5 RLLRAELALLE ARE LAL ELE LE ALAR EAEL AEE RALERREESLAAE AEE E LER ELAR EA ET EE 
; ATE EST 7 PRINT DRIVE SERIAL NUMBER 
te THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 
» IN BCD & IS PERFORMED ON THE 1ST PASS ONLY 
; ee eae. eee 
“MOV —s#L. STIMES ; ITERATION 
MOV #STACK, SP ‘RESTORE STK PTR 
TST $PASS 
BNE TST1O ::GO TO NEXT IF _NOT FIRST PASS 
ISR PC, SUBCLR iby UBSYS CLEAR 
ERROR 24 AFTER SCLR 
TYPE MSG16 :DRIVE SERIAL NO. 
MOV b2, RKMRL (RS) SELL. Als 3 
ISR PC’ GSTA 
MOV 2 R1 3 GET SERIAL 
MOV #SOCTVL, RY ADDR CHAR BUFF 
MOV RY, -(SP) : STORE ON STACK FOR SSUPRS 
MOV #3'R3 :SETUP CHAR NT 
ROL RI : INITIALIZE BIT POSITIONS 
1S: ROL Ri :GET NEXT 4 BITS 
ROL Ri 
ROL RI 
ROL Ri 


SES 0076 


—_—— + 
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Ze RS RUE Bt HBio.wo — HSEeOR MELE o ers 
ee ° 
3538 Bt 140 ane Aaaoes Bié #60,R0 ’ i REAVER To Bech f tots 
3738 bigiss 1 MOVE RO, {R4)+ :PUT ASCII DIGIT INTO CHAR BUFF 
7 l 1a 3 DEC R3 
3740 Olel 1364 BNE 1§ ;BR IF ALL 3 CHARS NOT DONE 
3741 012152 105014 CLRB 2 s«¢R4) -ELSE INSERT NULL TERMINATOR 
La Leis 047 OS 4526 JSR PC, $SUPRS : TYPE 
12160 rae 1205 TYPE  ,SCRLF 

ane 12164 104401 O01 TYPE =, 
3746 3 SKESRARALASLF ALLAH ASHLERERES AE AAL ELLE RERAELAAE SLL LAA EL FASE SELEKZEE : 
i ; STEST 10 SET VV WITH PACK CMD 
ra i IF VW IS RESET, THE PACK CMD IS USED TO SET IT. 
3751 an REDLASFAA FLSA A SESE AES ALLAAH SELL ERE LAL EA LL FALE RHA ZEA SLALFALLEE 
S25 (Sisise Saees? 0D 001174 18110: ay aL. STINES D0. 1 ITERATION 

4 BisS78 piss casete MOV #STACK, SP ‘Pore ee TR 
3756 012204 OOSOES 000026 CLR RKMR1 (RS) :SELECT BYTE 0 
3757 012210 004737 O4s534 JSR PC, GSTAT -GET STATUS 
3758 Ole214 032737 O00100 002362 BIT #0: VV, HMR2 
3753 Ol2e22 o010e4 BNE TST1l :;GO TO NEXT TEST IF VV SET 
3761 012224 104415 SCOP! 
abe Ol2226 012706 001100 MOV #STACK, SP sRESTORE STK PTR 
3764 012232 004727 O46106 JSR PC, SUBCLR 
766 012236 104024 ERROR 24 :CERR AFTER SCLR 
3767 O01 012765 oo0002 oD0000 MOV #PACK,RKCS1(RS) ;CMD TO SET VV 
3768 Olee46 013727 801414 003372 MOY T10. TEMPL 
3769 Ol2254 004737 O44176 JSR PC, FRDY sFIND RDY 
3770 012260 104116 » ERROR 116 :RDY NOT SET AFTER PACK CMD 
3772 012262 000100 903362 BIT #D. VV, HMR 
3773 Oleo76 001001 BNE TST1l ::GO TO NEXT TEST IF VV NOW SET 
3774 Ol2e7e2 O2 ERROR 27 :PACK DID NOT SET V.V. 
3776 se SESLKALKLA KLARA KEE RAAL AS SALE RA SAAA ALLS LASER LAA RAZA AA ALARA REAERE 
ere j ATEST ll RELEASE DRIVE 
3773 i TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK 
3781 oe SRELELSESLL ALAA SERA ALL SLRS RA SLES LAR ARAALE RELA RA LASHER AAAHAEAEEE 
3782 012274 o00004 tST11: SCOPE 
783 bice76 012737 000001 001174 MOV #1, STIMES ;;D0 1 ITERATION 
ae 12304 012706 0601100 MOV #STACK, SP *RESTORE STK PTR 
3786 012310 004737 O4b106 JSR PC, SUBCLR ;D0 SUBSYS CLEAR & GET STATUS 
3787 Diesi4 104024 ERROR 24 :CONTR ERROR SET AFTER SCLR 
3788 012316 032737 OCO4D0 002326 BIT #UFE,HCS2 
3785 012324 o0f401 BEQ 1 
3790 012326 04003 ERROR 3 ;UFE SET AFTER SCLR 
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3731 


OE-OCT-7E 


SE ace 


3808 


ous 


tatanatatatte 


WONMULE Wtue-O 


ish 


OOoOOooOOON0NO OOH OOO OOOOOOOO0O0O OOO 
ee ee eee et mee wee wre er ore a ed ed ed ed aed ed ed od and and wt ond ry ed ane ard 


012336 
Oles4e 


12344 
le3S2 


wee 


012370 
016376 
012400 


Pee eee Vey 
FERLZVIEVG Wwe 


metab 33 Re BRB 


Bears 
es 


Bade: 
104026 


012765 
01 Rae 2 


ie 


104030 
327 37 


001100 
046106 
000019 
045534 
100000 


000400 


000010 
003334 


003336 


001174 


003362 
003346 


003350 


000000 
003372 


003362 
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Til RELEASE DRIVE 
18: 
SCOP1 
MOV #STACK, SP ;RESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
ADD #RLS.RKCS2(RS) ;ADD RELEASE BIT TO $UNIT 
JSR Pc, GSTatT GET STATUS 
I SCERR, HCS1 CHECK FOR CONTR ERROR 
ERROR 25 RLS SET CERR 
28: BIT SUFE,HCS2 
BEQ TSTle -GO0 TO NEXT TEST IF SET 
ERROR 26 BACK SET AFTER RLS SENT 
. ar ee tee Gee ee ee 
;ATE DRIVE TYPE TEST 
THIS TEST COMPARES DRIVE TYPE IN MSG A AGAINST *DDT’ IN RKDS. 


ie WRONG CDT IN RKCS1 IS SENT & ERRORS ARE VERIFIED. 


} Lo; Semaaenayrcscemeracuamzermerneger es: 
#1. S$TIMES : 1 ITERATION 
MOV #STACK, SP ‘ RESTORE STK PTR 
JSR PC, SUBCLR :SUBSYS CLEAR & GET STATUS 
ERROR 24 :CONT ERROR SET AFT SUBSYS CLEAR 
BIT #D.DDT, HMR2 
BEG 2s 
ERROR 30 :DR TYPE SET IN MR2 
2S: BIT ODT, HDS 
BEG 3$ 
ERROR 31 ;DDT SET IN RKDS 
2S: BIT #OTYE ,HER 
BEG 4g 
ERROR 32 ;DTYE SET IN RKER 
4$: 
SCOP1 
OV #STACK, SP :RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
MOV #<CDT!SELDRY> ,RKCSI(RS) ;GET STATUS WITH CDT SET 
MOY T10, TEMP 
JSR PC. FRDY ;FIND RDY 
ERROR 11? :RDY NOT SET BY END OF SEL DRY CMD 
SIT #0.DDT, HMRe 
BEQ cg 
ERROR 30 :DR TYPE SET IN MRE 


cs: BiT #DOT,HDS 


nA Re 
& 
| UNIBUS RKOS DRIVE DIAGNO 
| ODRGHC.P LL “Kt-76 
| ge? C1es¥o 90140: 
3648 Slesu2 1040 
| 3649 SiSeu9 832>3° 
| BES 
3552 bisee? Ae2s33 
3953 012564 001001 
3854 O12566 [04034 
3065 
3656 
3867 
3656 
| 3665 
| 3666 
“Sei 
| 3863 
| 3sé4 
| S865 
Be 012570 9000 
' 
38 1 0} 7 
| 3870 Stsece 0} 
3671 
| 3872 012604 004737 
a He ies 
«=e BERLE DREGE 
| 3876 Oletee j04035 
| 3677 613684 632737 
| 3678 O12632 001401 
| 3679 612634 04036 
3680 
3661 012636 
355 cise3 14415 
1e640 512706 
«es 
3685 12644 004737 
see O12650 104024 
3668 Oleese 012765 
| 3686 913660 737 
3650 012664 37 
3691 Oice7e 001001 
a5 Han ee 
3694 012704 001001 
2695 012706 104040 
4 312719 737 
36967 512716 601001 
3696 cie7e9 
3665 0157 
3560 012730 001001 
| 3601 612732 10404 


B 
hv 


we ee 


309 


003040 


100000 


PART | 


003355 


003334 


001174 


003364 


003334 


000026 
003364 


003364 


003334 


002334 


MACY LI 274006). O6-OCT-76 23:23 PAGE 79 
Tle DRIVE TYPE TEST 

BEQ b$ 

ERROR 31 -DOT SET IN RKDS 
b$: git aOTYE, HER : DTYESDOT (NOT) #COT 

ERROR 33 sDTYE NOT SET AFT WRITING COT=1 
7S: BIT BOERR,HCS1 

BNE "is. GO TO NEXT TEST 

ERROR 34 ‘ior NOT SET AFT WRITING COT=1 
sitter 13°) CoD PARITY ERROR DETECTION 
-47EST 13 C-D PARITY ERROR DETECTION 
a 
1+ TESTS THE ABILITY OF THE DRIVE, TO DETECT EVEN PARITY SENT BY 
:# THE CONTROLLER BY SETTING ‘PAT’ ON Rk 
:* THE DRIVE SHOULD RESPOND uty C-D PAR arty Y ERROR’ : 
:* THE ORIVE STILL SENS 00D PARITY TO THE CONTROLLER WHICH IS 
:# CHECK! FOR EVEN PARITY THEREFORE THE CONTROLLER SHOULD CET 
v4 AN E AND SET DCPAR. 
- THE ERROR CONDITION IS RESET WITH THE CLEAR CMD 
.* 


+ SEESSESSSESFESSSSASSEAASSFFALAASSLALLSLELSSAELEAALFLSFSLELL LEELA 


$6713: SCOPE 


MOV Si IMe 1_ITERAT 
MOV satace ie dee STK 398 

ISR oe Secs :SUBSYS CLEAR 8 GET STATUS 

ERROR 24 :CONT ERROR AFTER SUBSYS CLR 

5 i 80.PAR, HORS 

ERROR 35 :C-D PARITY ERROR SET IN MR 
23: SIT BOCPAR, HCS1 

SEQ 3$ 

ERROR 36 sDCPAR SET IN CS1 
™ SCOP! 

ov aSTACK, SP :RESTORE STK PTR 

ISR Pc, SUBCLR 

ERROR 24 -CERR AFTER SCLR 

MOV SPAT. RKMRI(RS) ;SELECT SYTE O & EVEN PARITY 

ISR Pc. GSTAT :GET STATUS 

ett FLT, HMR3 

ERROR 3 sFAULT NOT SET IN MR 
4$: 8 80.PAR, HRS 

ERROR 40 :C-D PARITY ERROR NOT SET IN MR 
S$: BIT SOCPAR, HCS1 

ERROR 41 ;DCPAR NOT SET AFT WRITING PAT IN MRI 
&$: IT #CERR,HCS1 

BNE TSTI4 -GO TO NEXT TEST 

ERROR 42 ‘ AERR NOT SET BY WRITING PAT IN MRL 


a ee 





“Se 

Bis 

2 
“RR 

‘a 


aaa de 


3310 
$i] 
3612 
3615 12724 0000 
34 leva ble7a7 
fais Ser G87 
e 
3617 0 094737 
3612 O1S764 joMODy 
3615 
| 3420 o1 012765 
3521 Sieve 013737 
Be HP RE 
| 3634 
3365 913000 ooyra7 
| 36356 6913004 
| 3657 9335012 01001 
| 3636 013019 104306 
| - ooiso1e g1eza7 
363; 613004 O04737 
| 3635 913030 op04d1 
«ase SHR Aoosas 
| -35e«Bisogs BAECS? 
| 3636 O13046 O12737 
| $e ols olera7 
3635 013062 004737 
| 3640 013066 
| 3641 O13070 [04087 
Bee ie 
i 
3645 013076 104 
| 3645 013100 Ons737 
ae C1310) OOliss 
«Bale BtSiTS Bisoee 
3648 «613132 013737 
| 3650 013130 904737 
| 362 813134 To40e7 
3665 013136 
$623 012136 012737 
Seee G1S136 ter? 
36EE Oi3150 012737 
| 36€7 Oi31&— 015737 
| ‘366e 013164 006037 


DIAGNOSTIC. PRRT 1 
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001174 


000000 
003372 


003362 
001176 


oos4e4 


003430 
003432 


poe 
0000 
903374 


003424 


003430 
003432 


ACYL 2711006) O6-OCT-7& 23:23 PAGE 80 ; se doe 
T14 VERIFY START SPINDLE CMD 
s SSSSESSASARSSSSSSSESERSSSSSSSSESSSRSSESAESSSSSASASES SF SSLAES SASL SE 
: ATES T 14 VERIFY START SPINDLE CMO 
: THE THE PROGRAM CHECKS THE THE ENTIRE SIGRIVE SEQUENCE, IE: 
RRO UR RS Meern rg Si age sae 
-& CK 
:% af “Seno At uf ENE Be Re # 
+ 
H =» SSSSSSASSSASSSSSAASSSSSSSRSSSLELSLKSLASSREPSSSSAELELELLFSALALLLSS 
Eris ns srr TERATION 
MOV siehit ‘iPr ARe ER? 
ISR + mend ;SUBSYS CLEAR 5 GET STATUS 
ERROR 24 :CERR AFTER SCL 
MOV SSRTSPL,RKCSI(RS) ;START SPINDLE CMD 
MOV T10, TEMP ;SETUP TIMEOUT 
ISR PC FRDY 
ERROR = lel :RDY NOT SET AFTER START SPIN CMD 
ISR PC, GSTAT ;WORD 0 
BIT 80: SPIN, HMR2 
BNE 13$ 
ERROR 306 ;SPIN NOT SET AFTER START SPIN CMD 
: V 5 = CAPE 
se is 4 Be tefath : TEST FOR ATTN 
ERROR si i = 
158: Nov #<D.SPIN!D. VV!D. DRA .£.A0 sLOAD IN EXPECTED VALUES 
MOV 8<0.CART!D.DOOR!D.HDHM!D.BRHM> ,£.Al 
MOV 81,£.81 
ISR PC, CHKMSG sCHECK MSGS AO,80,A1,81 
ohio *8 MSGS SPECIFIED HERE 
5? !MSG AQ ERROR AFTER START SPIN CMD REC'D BY DRIVE 
ERROR 60 °MSG BO ERROR 
ERROR 61 °MSG AL ERROR 
ERROR 62 :MSG 81 ERROR 
TST DOTIM 
BNE 3$ ;BRANCH IF P OR L CLOCK PRESENT 
1s: MOY #303, SESCAPE 
MOV #CCLR RKCSICRS) 
MOV T1060, tEmP2 ; SETUP TIMEOUT 
JSR PC FATT ‘FIND A 
- ERROR 67 :NO ON METER HEAD LOADING 
Noy 8<D.DSC!D. SPIN!D. Papeete O ABe ,E.AO ;EXPECTED MSG AQ 
MOV #<D.SPOK!D. carts. DOOR: 0.BRHM!D.SSP>,E.Al sEXPECTED Al 
MOV #1.£.B1 ID FOR EXPECTED MSG 281 
CLR BtA5: PSEC TED MSG Ae 








5 
B 
& 


aid 8 


cREHC . 


RK 
Pi 
C 
0 
0 
Q 
0 
0 
0 
: 
0 
] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
fs] 
0 
0 
0 
0 
0 
0 
a 
0 
0 
0 
0 


r 


-~ 
- 


i 


eee 


a 


a 
Oo 


# 
ih 
oO £r 


i 


fororurute 
HORVOE 


y Bp 


LSERER ERNE Ra 


‘ 


Rene H 


REE 
es 8 


Hk BERR 


Ww 


a ee ee ed ed nd ed ed ed ed nd ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee Se eee 


SORRSERERSMES 
faseoneree 2 AS 


i 
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90909 
c0cods 


044720 


001362 


001364 


190000 
001222 
O00 
001414 
O44 
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06-OCT-76 23:23 PAGE 81 SEG 0 
VERIFY START SPINOLE CMD 


82,£.82 :MSG ID FOR xPECT D MSG 2 
83,£.83 :MSG ID FOR EXPECTED MSG B3 
: CHECK NSgs a 80,Al 
ret B10 oe .PL ELE tee HERE 
:MSG AO bpeba’ 3, END OF HEAD LOAD 

Le ine BO ERROR 
5 *MSG AL ERROR 
66 :MSG B1 ERROR 
cyLDIF ;SEE IF 3 A2=0 
175 MSG Ae “Rot CLEARED AT END OF HEAD LOAD 
CYLADD : SEE IF MSG Be=0 
S$ :BR IF Y 
176 ; :MSG B2 NOT CLEARED AT END OF HEAD LOAD 
#CCLR,RKCS1(RS) 

TT RKCS2(RS) DRIVES 
@CLEAR, RKCSI(RS) :DRIVE CLEAR CMD 
T10, TEMP 
PC FRDY FIND ROY 
15} ( ROY AFTER DRIVE CLEAR CMD 
PC, TSTATN tect FOR ATTN 
154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
80D. .SPIN!D. DRDY!D. VV!D.DRA> ,£.A0 sEXPECTED MSG AQ 
8<D. SPOK!D. cart#b. DOOR'D.BRHM!D.SSP>,£.A sEXPECTED Al 
#1,£.81 °MSG ID FOR EXPECTED MSG te 
E.AS ; EXPEC TED MSG Ae 
#2,£.82 °MSG ID FOR EXPECTED MSG Be 
#3,£.83 :MSG ID FOR EXPECTED MSG 83 
“PC, CHKMSG ;CHECK MSGS 3 BO, Al 
T.A2!T.B2!0 -& MSGS ata D HERE 
273 3MSG AD ib hee AFTER BRIE CLEAR CMD 
2e5 :M5G BO ERROR 
374 !M5G Al ERROR 
266 !MSG B1 ERROR 
128 
#CCLR,RKCS1(RS) 
H2. COUNT 
#60. SEC 
PC, CLKON ; TURN CLK INTR ON FOR 60 SEC MAX 


#1,RKMR1(RS) SELECT WORD 1 


: MUP 32S 60 SEC DELAY UP? 
4$ ;BRANCH IF NO & REPEAT 


onive Pi Sata 30 PART 1 re 27 ( PE ho0G) tk ete, A PAGE 2 SEG 0082 





RKO 
Pll 
013456 104070 ERROR 70 bet det SET WITHIN 60 SEC FROM 
013460 004737 047710 cs: JSR PC, CLKOF + TURN oFF! NPE Or INTERRORUPT 
fee ie tee ORR 
é I o* ! 
pisirs piss ? Be JSR PC, OLY sWAIT BPPROX Loans FOR PIP 
913504 004737 O44460 JSR PC TSTATN TEST FOR A 
giseig mt 5R 16 
13512 10431 ERROR -UNEXP ATTN AFTER ST SPIN 8 FWD DETECTED 
013514 612737 030140 003424 168: MOV +14 PIP!D.SPIN!D: VV!D.DRA>,£.AO ;EXPECTED AO 
013522 005037 903426 CLR .B0 
013526 012737 013700 003430 MOV #<D.LOAD!D.FWD!D. SPOK!D. CART!D.DOOR!D.BRHM> ,£.Al 
613534 012737 Baad 003432 MOV #1,£.81 
913542 004737 oO447 ISR PC. CHKMSG ;CHECK MSGS AD,B0, al 4B 
13646 900000 .WORD «= OfFO!D 8 MSGS SPECIFIED 
013550 104071 ERROR 71 :MSG AO ERROR aE TER . we SPIN & FWO DETECTED 
013552 104 ERROR 72 :MSG BO ERROR 
013654 104073 ERROR 73 :MS5G Al ERROR 
613556 104074 ERROR 74 :MSG B1 ERROR 
O13S60 013737 001370 001372 MOV HZ, COUNT 
O1356— 012737 900005 001374 MOV ‘ 
g13574 004737 047614 JSR PC’ CLKON ;TURN CLK INTR ON FOR S SEC MAX 
13600 12765 1 O00026 &$§: MOV SI;RKMRI(RS) i WORD | 
013606 004737 O45534 JSR PC’ GSTAT 
013612 002000 003262 BIT 80! FWD, HMR 
013625 001404 BEG 7§ 
013622 $737 001376 qs! TIMUP 
pt Ses opi aSe ERROR 8 sFWO NOT CLEARED WITHIN S SEC OF MOTION 
: FROM START SPINDLE CMD. 
012632 004737 047710 7S: JSR PC, CLKOF ‘TURN 0 Fk INTERRORUPT 
913636 004727 O448460 JSR PC’ TSTATN TEST oor Ss 
013642 000401 BR 178 
O12644 104320 ERROR 320 ;UNEXP ATTN AFTER INNER LIM DETECT 
013646 012737 030140 O03424 178: ‘MOV #<D.PIP!D.SPIN!D.VV!D.DRA>,£.AO ;EXPECTED AC 
013654 005037 003426 CLR 
O13660 012737 025720 002420 MOV #<D.RTZ!D. REV!D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>.£.Al 
013666 012737 000001 003432 MOV #1,£.81 
013674 904737 044720 SR PC, CHKMSG ;CHECK MSGS A0,80,A1,81 
013700 oo0000 . WORD gr0t0 *8 MSGS SPECIFIED’ HERE 
013702 109076 ERROR !MSG AO ERROR AT INNER LIMIT DETECT 
013704 104 ERROR 38 ?MSG BO ERROR 
013708 104100 ERR 100 :MSG Al ERROR 
013710 104101 ERROR 101 :MSG B1 ERROR 
013712 013737 091370 372 MOV HZ, COUNT 
O01 912737 000004 901374 MOV #4 SEC 
1 37¢6 005737 7e14 ISR PC; CLKON ;TURN CLK INTR ON FOR 4 SEC MAX 
1 012765 Boor 1 QO00026 28s: MOV sels RMR] (RS) WORD 1 
013740 004737 O45534 ISR ¢! GSTAT 
12744 032737 002000 003362 BIT #0: FWD, HMR2 
13752 O01 BNE #$ 
13764 005737 001376 TST TIMUP 
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MACY11 27(1006) 
T14 VERIFY START SPINDLE C 


38: 


18$: 


10$: 


118: 


128: 


14S: 


20$: 


07 
Ob-OC7-76 22:23 PAGE €2 


8s 

102 cue. NOL. viaacee WITHIN 4 SEC IN RTZ PORTION OF 
PC, CLKOF TURN CLOCK _INTR OFF. 

i? :TEST FOR ATTN 


ah ;UNEXP ATTN_AFTER OUTER we TO CYL O 
#(0.PIP!D.SPIN!ID:VVID.DRA»,E.AQ ;EXPECTED AO 


ence eae 


PC, CHKMSG SG MSGS AQ 420, et 


goto g MSG PECIF 

iss es Er Rok ED ree LIM TO CYL 0 DURING LOAD 

105 meg ar ERROR 

106 MSG at RROR 

HZ, COUNT 

#1,SEC 

PC. CLKON : TURN CLK INTR ON FOR 1 SEC MAX 

RKMRI (RS) :WORD 0 

PC, GSTAT 

#D DROY, HMR :SEE IF DRIVE READY 

los 

107 s DRIVE READY NOT SET WITHIN 1 SEC FROM 
*FWD IN RTZ PORTION OF START SPIN CMD 

PC, CLKOF : TURN CLOCKS OFF 

PC TSTATN ; TEST ATTN 


;NO ATTN AFTER START SPIN CMD 


#20, SESCAPE 
2s ;CHECK RKMR 2 8 3 WORDS 08 1 


SESCAPE 
#CCLR,RKCS1(RS) 
RKMR1URS) 


Ben gstat 
#5:SPIN, 


306 ;SPIN NOT SET AFTER ST. SPIN CMD 
SEOP T ORIV 

UNLD USED FOR VALID HALT 

PC SWTST :SEE IF SW 14 708 8 IS SET 

Tstis -GO TO NEXT TEST 


RET TURN HERE If SW 4 Is SET OR 
‘SW @ WITH SWR <7:0> A 


UNLD 

PC, SUBCLR 

24 ;CERR AFTER SCLR 
BUNLOAD, RKCS1(RS) s UNLOAD CMD 
T10. TEMP 

PC, FRDY ;FIND RDY 


a 

RKOE . 

Pll * 
C 





4] 
4135 r 
| 


014260 


E53 
104011 

737 
1040le 


000004 
Bie ea? 
12706 


rn eee ee eee 


044460 


aie 
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164542 


164516 


001174 


? 


- 
O07 
ACYL 27% -OCT-76 23:23 PAGE 84 2094 
FT CERRO or BRT Sp INGLE’ cue = os 
ERROR 11 “RDY NOT SET AFTER UNLOAD CMD. 
ise, 6G. TSTAT 
oR 1 “NO ATTN AFTER UNLOAD CMD 
JSR _—- PC, SUBCLR 
ERROR 24 SCERR AFTER SCLR 
MoV MPO :SETUP TIMEOUT, ALL 1°S 
67§: MOV role IERCSLCRS) | 
MOV :SELECT WORD 1 
1SR —«PC’GSTAT 
BIT sD'SPOK,HMR2 SEE IF SPEED OK GONE 
BEQséS 'BR IF Y 
DEC STNPO tELSE TRY AGAIN IF TIME NOT UP 
ra 
ERROR 315 “SPEED NOT DOWN BY TIMEGUT 
ess: 
Jer PC, SUBCLR 
ERROR 24 SCERR AFTER SCLR 
CLR —sSESCAPE 
Ts] — LPFLG 
Beg OC#& SS 
NP 0 s«SLPERR :SW 9 WAS SET. 
695:  JMP SLPAOR 'Sw i4 OR 8 WAS SET 


ess: JSR PC, CLKOF 


INC LPFLG 

BIT BSUS ISU ;LOOP ON ERROR? 

BNE 20$ YES, RECO ONDITION DRIVE 

IMP is IRETURN T 0 MAINLINE 
30$: JSR C, CLKOF 

INC LPFLG 

BIT #SWS, ISWR ;LOOP ON ERROR? 

BNE 20$ :YES, RECONDITION DRIVE 


IMP 123 RETURN 19 MAINLINE 
.SBTTL SEEK/READ HEADER/WRITE veites TEST 


+ EERREREERERRE EERE EARLE RARER ELE LEAR ALLELE EERE EAE E REE REAR ERE EERE 
ATEST 15 STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 


THIS TEST CHECKS EACH BIT OF THE CYL DIFFERENC 
RaoR Cy a, Sa wiet aw hoe oY ta es SEEKS 


0 
1,2,4 8,256) WITH EVEN ARITY SET. 
THI FREESE S tht tne Oana B+ eae 1a Fae AG ABOVE REG ESTERS S BLL OWS FOR CHECKING. 
te TEST VERIFIES C=b PAR TY ERROR BIT SET, orear RE S DID 
NOT MOVE & ALL APPLICABLE STATUS BITS’S Recs” 
[eeeeoneanensaneaeaneaneeseaceaeaneaeenannanennanaaeanateas 


jit OPE 
ay #1, $TIMES ; ITERATION 
MOV #StACK, SP APO be TK PTR 


ee e+e 


oo 9000 OO - 


aA 
ru 


EMHEEER 





005090 
012737 


104415 
012706 
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UNIBUS RKO& DRIVE DIAGNOSTIC 
06-00 18:09 


100000 


001100 
046106 


001362 


001364 


O0le2e 
oo000s 
001414 


PART | 


003402 


009 

600010 
000008 
003372 


o00de6 
003362 
003374 
003424 
003430 
003432 


003436 
003442 


003372 


MACY11 27(1006) 
T15 


CLR 
MOV 


SCOP 1 
MOV 
JSR 
ERROR 


MOV 





06-OCT-76 23:23 PAGE 8S 
STATIC CYL DIFF AND CYL ADOR REG TEST; PART } 


;CYL # REGISTER 


#<D.DSC!D. SPIN'!D. DRDY!D. VV!D.DRA> ,E.A0 
E.B0 “EXPECTED MSG BO 
Heer -CART!D. ee 1D. BRHM!D.SSP>,£.Al ;EXPECTED Al 


rife T-eetT.23 | 






;RESTORE STK PTR 


;CERR AFTER SCLR 


;RESET ctL REE COPFSET 8 CYL ADDR REG 
!IN RKMR2 & RKMR3 RESP. 


Baye NO? SET AFTER RECAL CMD 
;SELECT WORD 1 


ier tup re se } Sunn RECAL CMO 


FIND alin’ 
;NO ATTN AFTER RECAL CMD 


D on geXPECTED! MSG 81 


fis Se fo PORE R EXPECTED MSG Se 
MSG ID FOR EXPECTED MSG B3 


: CHECK MSGS AO,B0.A1.B 

sos SPECIFIED HERE 
ings ag ERR Baan AFTER RECAL CMD 
*MSG Al ERROR 
:MSG B1 ERROR 


‘Bre IF vee Re=0 - 


:MSG Ae ‘Nr CLEARED AFTER RECAL CMD 
:SEE Md MSG Be=0 


:B YES 
;MSG B2 NOT CLEARED AFTER RECAL CMD 


£ 
;ORIVE CLERP CMD 





;EXPECTED MSG AQ 


re 


UNTBUS — DRIVE DIAGNOSTIC PART 1 
OZREHC.P11 18:09 


O0&-OCT-7& 


4257 0150 
4258 O01 
42539 Ol 
4260 

4261 

4262 015024 
4263 015026 
2 
ee 
4267 

4 ot 

426 15044 
4270 0150Se 
427 15056 
42 15064 
4273 015072 
4274 015076 
4275 015100 
4276 015104 
4e77 015106 
4278 015114 
4278 O01Sle2 
4280 015130 
ohne 
1565 BiELuE 
4284 

mig tate! 
eae 
4268 015164 
4e89 QO1S166 
4290 015170 
4291 

4e92 015172 
4233 015176 
4294 015200 


012737 
01 


Bier37 


004737 


020037 
001401 
104043 


044176 
044460 


ee 

S434 
000002 
000003 
044720 


001364 


003424 
003430 
003432 


003436 
003442 


003436 


67$: 


MACYL1 27(1006) O6-OCT-76 23:23 PAGE 86 SEG 
T1S STATIC CYL DIFF AND CYL ADOR REG TEST; PART 1 

JSR PC. FRDY 

RROR 3! Np DOr bet R DRIVE CLEGR CMD 

3 FC, TSTATN TEST FOR ATTN 

RROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 

MO (02D. SPIN!D. DROYED DRA» ,£.A0 sEXPECTED MSG AO 

tee OBSBR Bet PERG Ba 

MOV #<D. SPOK!D. CART! i DOOR!D. SRE! SSP>,£.Al sEXPECTED Al 

Hoy # Az iH 1p. FOR. EXPECTED’ MSG BL 


10? 


MOV BST ESBS ie ip FoR “BoPecTER Mee BS 
ISR ome ;CHECK MSGS AO £0, Al,B1 
eHOeR 2  ebiaeein sms ag ER Rok specie CEE CMO 


RROR 274 
FRESE 6 ie BR : 
SCOP! 
MOV BSTACK, SP ;RESTORE STK PTR 

R PC, SUBCLR 

BEOR 24 tie ;CERR AFTER SCLR 
INC BYPCERR :D0. NOT lf q CERR IN GSTAT! 
MOV #PAT. RKMR1(RS) ;EVE 
MOV RO, RKDC(RS) CYL NADOR 
MOV aSEEk RKCS1(RS) EEK CMD. 
MOV T10, TEMP 
JSR PC FRDY ;FIND RDY 
ERROR 122 :NO ROY prot SEEK WITH BAD PARITY 
ISR PC TSTATN : TEST N 
ERROR 126 :NO art RR RON SEEK $ BAD PARITY 
MOV #<D.DSC!D.SPIN!D- BRDYID. VVID.DRA>,E.AQ ;EXPECTED AC 
MOV #<D.FLT!D.PAR> E. 
MOV Hy SPOK!D.CART!D. DOOR!D.BRHM!D.SSP>,£.Al 
MOV Re 
HOY RO’ E Be 
BIS #2'E.Be :ADD MSG ID 
JSR PC CHKMSG, sCHECK MSGS AO 9,80,81 Pleo Sea 
Ener 2 tp res :MSG AD EReoR 3.9 oes SEEK WITH BAD PARITY 
ERROR 111 :MSG BO ERROR 
ERROR 146 *MSG Al ERROR 
ERROR 147 :MSG B1 ERROR 
CHP RO, CYLADD 
ERROR 43 :CYL ADDR IN B2 NOT=RKDC 


COst 


UNIBUS RKO& DOR 


IVE DIAGYOSTIC PART 1 
CT-76 18:09 


ooo004 
012737 
012706 
005737 
001404 
104401 
000137 
104401 
005037 
005037 
005037 
005037 


104415 
012706 


004737 
104024 


012765 


O1e7e8 
013737 
004737 
104124 


012765 
004737 





001362 


001462 
003402 


001000 


014454 


001414 
O44176 


000001 
045534 


001174 


000000 
00000 
003372 


000026 
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T15 STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 


2s: CMP RO, CYLDIF 
FESO a4 :CYL DIFF IN A2 NOT=RKDC 
38: CLR BYPCERR ALLOW CHECKING FO® ONY CERR IN GSTATI 
ROL TEMPS SET CARRY ONLY ONCE 
ROL RO ; SELECT NEXT MAJOR CYL 
CMP RO, #1000 MAJOR CYL DONE? 
BNE 4§ BRANCH 
BR TSTIE ?:G0 TO NEXT TST 
4$: IMP 1$ 
H SEES SELES S FREESE EEE TELE EEE EES EE PES FEE EES ELSE LEELA EF SEREFI FER ESE 
p87 EST 16 STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 
te THIS TEST CHECKS THE ABILITY OF THE DRIVE TO PROPERLY gE THE CYL 
‘ie DIFF. 8 CYL ADDR REGS FOR ALL COMBINATIONS BY SEEFING TO 
1 ALL ¢CYLS FROM EVERY OTHER CYL. (N SQ SEEKS). 
i IT 1s PERFORMED IN THE SAME MANNER AS THE ABOVE TEST 
rr nag "sacar ae ees un gene ATER eee Y 
+éT16: SCOPE 
#1, STIMES ::D0 1 ITERATION 
MOV sSTACK, SP ‘RESTORE STK PTR 
TST BYPTIE 
EQ 33 
YPE MSG9 sBYPASSING TEST 16 
IMP 12s 
133: TYPE MSGS ;PLEASE WAIT, LONG TEST 
CLR FRCYL sFROM CYL 
CLR TOCYL YL 
CLR CCYL CURRENT CYL 
€LR PCYL PREV CYL 
SCOP1 


MOV #STACK , SP 


JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 


;RESTORE STK PTR 


MOV BCCLR, RKCS1(RS 

MOV SUNIT. RKCSe( RS 

MOV #RECAL,RKCSI(R AL CMD 
RESET oe STEFSOPFSET & CYL ADOR REG 

IN RKMR2 & RKMR3 RESP. 

MOV T10, TEMP1 


JSR ¢. FRDY ;FIND RDY 

ERROR 124 :ROY NOT SET AFTER RECAL CMD 
MOY #1,RKMRI(RS) § ;SELECT WORD 1 

JSR PC; GSTAT 
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DZREHC.P11  O&-OCT-76 18:09 T1é STATIC CYL DIFF & CYL ADOR REG TEST-PART 2 
4351 O1S402 032737 020000 003362 BIT #0. RTZ, HIRE 
NE on uy :RTZ NOT SET DURING RECAL CMD 
003374 64S: MOV T1, TEMP2 :SETUP TIMEOUT 
JSR PC’FATTI : FIND 
or «SS "NO ATTN AFTER RECAL CMD 
003424 Moy 8D. DSCID. .SPIN!D. Been Be .DRA>,E.AO ;EXPECTED MSG AD 
003430 MOV #<D. SPOK!D. CART!. DOOR!D. BRHM!D. SSP> ,£.Al sEXPECTED Al 
003432 Hoy a 1,E- Bl ifs ie. FOR EXPECTED MSG Bl 
us r} F MSG 
Bose MOV SE-B ree 1p EO BYEECT mee BS 
ISR PC, CHKMSG :CHECK MSGS 80, BO, Al,B 
-WORD T.A2!T.B2!T.B3 i8 MSGs $ pect ED HERE 
ERROR ze MSG AO ERRO AFTER RECAL CMD 
ERROR *MSG BO ERROR 
RROR 222 MSG Al ERROR 
ERROR 276 :MSG B1 ERROR 
TST CYLDIF :SEE IF ise A2=0 
BEQ S$ :BR IF Y 
RROR 47 "MSG A2 NOT CLEARED AFTER RECAL CMD 
65S: ST CYLADD :SEE IF MSG Bo=0 
BEQ 6S :BR IF YES 
| oi we ERROR SO :MSG B2 NOT CLEARED AFTER RECAL CMD 
01 01 000000 MOV —- BCCLR, RKCS1(RS) 
01 fy 000010 MOV SUNIT-RKCS2(RS) ;DRIVES 
| 4383 01 0 9o0000 MOY - #CLEAR. RKCS1 (RS) SDRIVE CLEAR CMD 
| 4384 O15556 013737 001414 003372 MOV T10, TEMP1 
| 4385 O15564 004737 044176 JSR PC. FRDY sFIND RDY 
| 4386 015570 104151 ERROR 15] "NO RDY AFTER DRIVE CLEAR CMD 
4387 015572 004737 O444E0 ISR PC. TSTATN ‘TEST FOR ATTN 
4388 O15576 OO0401 BR 67§ 
4389 O15600 i04154 ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
| 4290 015802 673: 
| 4362 o1Se02 012737 010340 003424 MOV #<0!D. SPIN!D. DRDY!D. VV!D.DRA> ,E£.AD sEXPECTED MSG AD 
| 4393 015610 005037 002426 CLR CTED SG 
| 4394 O15614 012737 001720 003430 MOV #(D.SPOK!D. cart#6. DOOR!D.BRHM!D.SSP>,£.A sEXPECTED Al 
| 4395 015622 018737 000001 003432 MOV #1,£.B1 >MSG ID FOR EXPECTED’ ASG Bl 
| 4396 015630 005037 003434 CLR E.A2 :EXPECTED MSG Ae 
4397 015634 012737 O00002 902436 MOV #2,£.B82 *MSG ID FOR EXPECTED MSG 82 
4238 O1se42 012737 000003 oO344e MOV #3°£.83 :MSG ID FOR EXPECTED MSG B3 
| 4400 OiSE50 0904737 044720 JSR PC, CHKMSG ;CHECK MSGS A0,B0,A1,81 
4401 015654 o90003 -WORD T. Retr. B2!0 MSGS SPeCte FIED HERE 
| 15656 10427 ERROR e73 “MSG A feos AFTER DRIVE CLEAR CMD 
44 15660 10426 RROR 265 MS RROR 
| u404 OlEEE2 104274 ERROR 274 :MSG Al ERROR 
H40S OISEEY 104eb6 ERROR 266 :MSG B1 ERROR 


07 
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i oo 


4407 
1 O44 SCOP] 
nee Bt ees te 001100 aS BSTACK, SP sRESTORE STK PTR 
4411 O1SE74 004737 O46106 ISR PC, SUBCLR 
#412 015700 104024 ERROR 24 ;CERR AFTER SCLR 
4414 
4415 Qt 02 D1e765 o90020 ouodee 1S: MOV #PAT,RKMRI(RS) ;EVEN PARITY 
4416 015719 613765 001352 o00020 MOV TOCYL,RKDC(RS) :SET TO CYL ADDR 
441? Ol ib 1 901352 901 4 MOV TQeyL ccyL CURRENT CYL 
4418 0157 13737 001354 MOV cCYL, TEMP 
44] 15732 137 001356 0034 MOV PCYL, TEMP4 ;PREV CYL 
44290 015740 163737 003376 003400 SUB TEMP3, TEMPY 
444 E76 BP :BR IF TEMP4Y IS POS 
4a 1 437 *003400 NE MP4 
wes OL 4 013737 001360 2%: HOY TENPS CALDIF . 
44 ot ot h33 MOV ST PON Rs) ;SEEK CMD. 
445B 0] 1 001414 00337 MOV T10, TEMP 
4427 016004 004737 044176 JSR PC. FRDY ;FIND RDY 
44 16019 14128 ERROR 1 :NO RDY AFTER SEEK WITH BAD PARITY 
44 1601 O444E0 ISR PC TSTATN TEST FOR ATTN 
44 16016 104125 ERROR !NO ATTN FROM SEEK & BAD PARITY 
4431 016020 012765 100000 oo0000 MOV #CCLR,RKCSI(RS) :CLEAR E 
HSE ble0ce 13768 001 38 0020 Nov TocyL RKDC(RS) jRESTOR RK c AFT CCLR 
444 aaa Be939 Bee 001364 CMP TOCYL, CYLADD gee 1F to YL ECHOED OK 
4435 O16046 001401 BEQ 3$ 
#436 O160S0 1 ERROR 45 ;MR3 NOT=RKDC 
4438 O160S52 004737 o4E412 3S: ISR PC, RDCYLD sREAD CYL DIFF 
4439 O16056 623737 001360 001362 CMP CALDIF,CYLDIF SEE IF CYL DIFF CORRECT 
4440 O16064 601401 BEQ 4g 
nn 16086 104046 ERROR 46 CYL DIFF IN RKMR2 INCORRECT 
4443 016070 4§; 
4445 016070 012765 19 MOV #CCLR, RKCS1(RS) 
4446 016076 013765 O0l222 0o00010 MOV SUNIT -RKCSO(RS) ;DRIVE® 
4447 O16104 012765 oOo000S 900 MOV #CLEAR, RKCS1(RS) ;DRIVE CLEAR CMD 
444 16112 13737 poi 003372 MOV 10, TEMP 
#493 161 737 O44176 ISR C FRDY :FIND RDY 
016124 104151 ERROR 15] !NO RDY AFTER DRIVE CLEAR CMD 
4451 O16126 004737 o444E0 ISR PC. TSTATN TEST FOR ATTN 
uus2 016132 00401 BR 68$ 
4453 016134 104154 ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
4454 016136 8S: 
ayes 
Hyse 
4457 O16136 104415 SCOP1 
HHE8 016140 012706 001100. MOV #STACK, SP ;RESTORE STK PTR 
4460 O16144 004737 O46106 JSR PC, SUBCLR 
4461 Ol6150 104024 ERROR 24 ;CERR AFTER SCLR 








UNTBUS RKOB OR 
OZREHC .P11 
— sate, 
wee SIEIEE 
4466 016174 
4467 blest 
wes biesie 
4470 RIPEse 
male lbee4 
“472 Olbese 
4473 016240 
4474 OD1b246 
al | Riesed 
a7 Dieses 
4478 Ol62e66 
4479 016270 
016276 
4481 016304 
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4483 016316 
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que pibses 
wee Dlesae 
4489 016336 
4490 016340 
4491 O16344 
449e 016350 
4493 016352 
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4495 
4496 016356 
mae Ress 
438 Dles7e 
4500 916374 
4501 016376 
4502 016402 
4503 016410 
4504 Ol64le 
4505 
4506 016414 
4507 
4508 O16414 
45039 Olb4e2e 
4510 016430 
4511 O16436 
Sie O16444 
4513 O16450 
ule O164Se 
1S Ol16456 
4516 C6460 
4517 Ol646e2 
4518 


yo 
im 

fe 
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04 
104154 


001350 
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001362 


900010 
000090 
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Ss: 


6$: 


9S: 


108: 


7$: 


69S: 


06-OCT-76 


23:23 PAGE 90 
STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 


#PAT RRDe RE); seve" PARITY 


FRCYL, RKDC( T RETURN CYL ADDR 
FRCYL;CCYL 

CCYL, TEMPS 

PCYL: TE 

TEMPS, TEMP4 

c$ :BR IF TEMPY IS POS 

TEMPY 

TEMP4, CALDIF 

CCYL, PCYL 

#SEEK,RKCSI(RS) ;SEEK CMD 

T10, TEMPI 

PC FRDY ;FIND RDY 

122 :NO ROY AFTER SEEK WITH BAD PARITY 
PC. TSTATN TEST F 


N 
1 :NO_ATTN FROM SEEK & BAD PARITY © 
#CCLR,RKCSI(RS) ;CLEAR ERROR 
RKDC (RS) 


FRCYL RESTOR RKDC AFT CCLR 
PC RDCYLA :READ CYL ADDR 
FRCYL, CYLADO :SEE IF RETURN CYL ECHOED OK 
241 ;MR3 NOT=RKDC 
TOCYL, FRCYL ;SEE IF TO=FROM 
:DO NORMAL TEST IF NO 
TOCyL ‘SEE IF=O 
PC, RDCYLD ;CYL DIFF S/B 0 ON CYL O 
cYLOIF 
ete CYL DIFF IN RKMR2 INCORRECT 
PC,RDCYLD sCYL DIFF/OFFSET SHOULD NOT 
cYLDIF, #1 ; CHANGE IN SEEK To SELF 
75 HOULD = HIS TEST 
iy eye IFF IN RAND DID NOT REMAIN = 0 
C,RDCYLD sREAD CYL DIFF 
GRIF, CYLDIF SEE IF CYL DIFF OK 
242 :CYL DIFF IN RKMR2 INCORRECT 


#CCLR,RKCS1(RS) 


$UNIT. RKCSe (RS) ;DRIVE# 
CLEAR, RKCS1 (RS) ;DRIVE CLEAR CMD 

TiO, TEMP 

PC. FRDY iF ND RDY 

15} NO RDY AFTER DRIVE CLEAR CMD 

PC, TSTATN :TEST FOR ATTN 


154 ;ATTN NOT CLEARED GFTER DRIVE CLEAR CMD 


0030 


cr 
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DZREHC.P11 O&-O0CT-7E 18:09 Tl6é STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 
19 
001 TOCYL 
an gee ne POISE congas Be WEE poe owe we aeems ai 
4522 BEG 8s ;BR IF YES 
4523 Bt eoe 018702 IMP 1$ ;ELSE REPEAT 


pigEoe 37 991350 gg: INC FRCYL 
ig 3727 O01 000632 CMP FRCYL, #411. :SEE IF ALL DONE 

16514 001405 BEQ TST17 $490 TO NEXT TST 

16516 013737 001350 001352 MOV FRCYL, TOCYL ?FRCYL ALWAYS = OR > TOCYL 
cigs 000137 9616702 fa IMP 1$ ‘ELSE REPEAT 


4527 
4528 
45 
ized 
23 H ae” an a! 
34 ;ATE HEAD REGISTER TEST 
4525 
4538 
40 
ui 
4545 
4543 
4547 
454g 
yoyo 


iS THIS T ST sec ABILITY T ADS (0,1,2) 
is Sina BACK FROM nc “Bg By he Gerber DRIVE CHD. 
:# HEADS IS S RECKED T0 PRODUCE 1 
% HANGING HEAD S D TO SEEK CMD 
:% SLE ering G HEAD. 3 PHS i Rest hs ab K INCO tas ALONG WITH 
1 S MEANS THAT ORANG ING HEAD ADDRESSES 
i aoe et Tepe 76° seek'e NOnOs” 
= = LESKRRLSRAFRASEAL ALE SEE ALALAS LEA AAR ALA AERA SALE AALEL LASER ERAZRAERE 
016530 900004 t$T17: SCOPE 
016532 012737 o00001 001174 MOV 1,$TIMES ; 1 ITERATION 
016540 012706 001100 MOV fatack. SP ‘ie STORE STK PTR 
016544 oos000 CLR RO sHEAD # 
4551 O1ES46 1S: 
4255 O16546 104415 SCOP! 
#552 01650 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
4555 016554 004737 O46106 ISR PC, SUBCLR 
435 016560 104024 ERROR 24 ;CERR AFTER SCLR 
4c5g 
4e5o 
01 012765 100000 co0000 MOV #CCLR, RKCS1(RS) 
4561 016570 013765 001222 O00010 MOV SUNIT, RKCSE( RS) 
4562 O16576 012765 000013 000000 MOV #RECAL,RKCS1(RS) L CMD 
4563 RESET cif SEF COFFSET - & CYL ADDR REG 
4564 IN RKMR2 & RKMR3 RESF. 
WEES D1E04 913737 001414 903372 MOV T10, TEMP1 
16612 004737 044176 JSR’.  PC,FRDY ;FIND RDY 
4567 O16616 104124 ERROR 124 :RDY NOT SET AFTER RECAL CMD 
4569 O16620 012765 000001 os0002¢ MOV #1, RKMRI(RS) ;SELECT WORD 1 
4570 Ol6626 004737 O45534 JSR : 
4671 016632 737 O20000 003262 BIT #0: RTZ, HMRe a 
4572 O16640 001001 BNE 64S 
4573 Olee4e 104244 ERROR 244 ;RTZ NOT SET DURING RECAL CMD 
4574 O16644 013737 001412 003374 64S: MOV T1, TEMP2 :SETUP TIMEOUT 








V 2 is ag sTre 
-“0CT-76 18: 


> | 
i dis 

mt: 4 

7. & 
» § 

es 


| 
gh 2 OO4T3? O44512 
7 16656 LOsoss 
‘ 
| sE75 26660 012737 950340 
sees StERSS S7E0E2 BEFSEE 
4581 018700 012737 000001 
4582 O1E70 37 003434 
4583 Ole712 012737 200002 
“S84 016720 - 012737 900003 
a2 =: O16726 CON737 O44720 
wS88 O1E734 104221 
“58S O1673¢ 104275 
4559 O1E74O 1o4eee 
432) Ol6742 104276 
4593 O1E744 37 001362 
4594 016750 o91301 
33 gié7Se Os 
| 4596 O16754 605737 001364 
| 587 O18760 001401 
_ #598 O1E72 104 
_ 58S OLE7ES | 
/ 4600 
ORGS ee pm 
/ 4603 O01 012765 ele 
4604 O1 013737 901414 
| #605 017014 804737 044176 
-| 606 017020 104151 
| 4897 91 70ee 004 D44460 
4608 917026 00401 
| 4608 017030 104154 
| 4518 017032 
| 612 017032 912737 010340 
_ 613 017046 006037 903426 
| SG Ries Glee Bee 
' BIE bt obEs SAEED 003434 
| 4617 017064 012737 oD0002 
$18 017072 012737 09009003 
4620 017100 904737 oO44720 
4621 017104 900003 
“eee 017106 104273 
4623 Ol7110 10425 
4624 Ol17112 104274 
4625 O17114 lOsece 
4EZ5 
4627 
4626 O17116 023727 001432 
23 017124 601401 
4630 O17126 104053 


PART | 
os 


003424 


003430 
003432 


003436 
003442 


000089 
000010 
Q00000 
003372 


003424 
003430 
003432 


003436 
O0344e 


000001 


te CYli 27( 1006) 


S$: 


b&$: 


67$: 
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HEAD REGISTER TES 


JSR 
ERROR 


;FINO_& 
iNO arin “HeTER RECAL CMO 


EF OSC!0.SPINID. prpy 2? VV!D.DRA> ,E.AC 


PC,FATTI 
}) 


;EXPECTED MSG AO 


E60 ;EXPECTED MSG ; 
ry SEOK' D.carTi. 10.SSP>,£.Al sEXPECTED Al 
$1.£.8 MSG ip FOR EXPECTED MSG 81 

E.he *EXPECTED MSG Re 

82,£.82 “MSG ID FOR EXPECTED MSG B2 

83.£.83 “MSG ID FOR EXPECTED MSG 83 

PC, CHKMSG ; CHECK MSGS ao,80,A 

T.A2!7.Be!T.83 scé sPectFien HERE 

221 2MSG AC ib tees TER RE 

B75 :MSG BO ERROR 

B22 “MSG AL ERROR 

e76 !MSG Bl ERROR 

CYLOIF ; SEE IF SG Az=0 

v4 IMSG NOT CLEARED AFTER RECAL CMD 

cYLAG ;SEE I IF tes §2=0 

50 tHSG Be NOT CLEARED AFTER RECAL CMO 

SUNTT RKCSE(RE) ;ORIVES 

SUNT ACES] CBS) Oe DRIVE CLEAR CMO 

T10, TEMP 

¢ FRDY FIND RDY 

is} NO ROY AFT R DRIVE CLEAR CMD 

PC, TSTATN ‘TEST FOR ATT 

is4 SATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
8<0!D.SPIN!D. ORDY!D. wid. DRA> ,£.A0 sEXPECTED MSG AQ 
E.B0 CTED MSG’ 80 ; 
he SPOK!D.CART!O. DOOR!D. BRHM!D. SSP>,E.Al sEXPECTED Al 
#1 E. -Bl : FOR EX CTED' MSG 81 
E.A ‘EXBE D 

82,£.82 iMSG ID FOR EXPECTED NSG B2 

#3,£.82 :MSG ID FOR EXPECTED MSG B3 

PC. CHKMSG ; CHECK MSGS A0,80,A 
12 getT. B2!0 -& MSGS Sere t ete TED HERE 
273 :MSG AD freak AFTER DRIVE CLEAR CMD 
ges :MSG BO ERROR 

:MSG AL ERROR 

266 :MSG Bl ERROR 
HEAOA, #1 :FOR HEAD 0, B3=1 
53 ;RECAL DID NOT RESET HEAD REG IN 83. 
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001362 


001364 


000003 
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oo3424 


OO3426 
903430 
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003436 
003442 


003442 
003442 
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33: 
SCOP 1 
MOV 


JSR 
ERROR 


4§; MOV 
ss: MOV 


&$: C 


7$: MOV 
8$: 


68S: TST 


693: 


ER TES 


aSTACK,SP ;RESTORE STK PTR 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
RO 

oe ;HEAD 8 


geben RK ceeetie ;SEEK CMD 


pt pet if ND_RDY 
156 RDY AFTER SEEK TO SELF 
PC, TSTATN 
1 sNO_ATIN AFTER SEEK TO SELF 
8<D.D0SC!D.SPIN!D/DRDY!O.VV!D.DRA>,E£.AO ;EXPECTED AC 
4 FOR HEAD 3 
E 80 :FOR HEADS 0,1,2 
WD. SKI!D. FLT!D. weet £.B0 “FOR HEAD 3 
#<D. SPC" 'D. CARTID. DOOR'D. BRHM!D.SSP>,E.Al 
#1 E81 
E.Ae 
#2,£.B2 < 
RO :SEE IF HEAD O 
6S :BR IF NO | < 
#(BIT9!3>,£.83 ;LOAD EXPECTED 83 FOR HEAD O 8 MSG ID 
RO, #1 :SEE IF HEAD 1 
? :BR IF NO 


hdl aaed 83 FOR HEAD 1 
#<BIT11!$3>,£.83 ;83 FOR HEAD e 


PC. CHKMSG sCHECK MSGS A0,80,Al 
r “aaiT. Be!T.83 -& MSGS Care tes ED HERE 
MSG AQ ERROR AFTER LOAD HEAD REG & SEEK oMD 
tie iMSG BO ERROR 
322 :MSG Al ERROR 
323 :MSG Bl ERROR 
CYLDIF ;SEE IF MSG A2=0 
324 MSG R2 NOT CLEARED AFTER LOAD HEAD REG 8 SEEK CMD 
a ck eee 
325 :MSG Be "Rot CLEARED AFTER LOAD HEAD REG 8 SEEK CMD 
RO, #3 
9g 


;BR IF HEAD 3 


St 


RR ho 
DBGRR LOLS 


445 
Ree 


4703 


8.3 


deked 


oe 


WIV Fy 
tu 


hes 


7 
Plat etat ats 


BB-BOO00 + 
os 


oo 


bb bs hh he eh hh ht he Fhe he 


SH FERRARA SE thas 


OoOoOOOoOOO0HO ON0O00OM 


100009 
00141e 
044512 


003364 


000000 
003374 


HEAD REGISTER TEST 


TEMP} 
MOVB = ATTN(RO). TEMP 
CMP TEMP 1, HEADA 


9g 
ERROR 54 
INC RO 
cmp RO, #4 
BEQ 10 
IMP 1§ 
MOV @CCLR,RKCSI(RS) 
MOV SUNIT, RKCS2(RS) 
MOV BRECAL, RKCSI(RS) 
MOV T10, TEMP 
ISR. PC, FRDY 
ERROR 124 © 
MOV 8CCLR,RKCS1(RS) 
MOV SUNITRKCS2(RS) ; 
MOV . @CLEAR, RKCSI(RS) 
MOV T10, TEMP 
JSR PC FRDY 
ERROR 15 
ISR Be TSTATN 
5R 718 
ERROR 154 


JSR PC, GSTAT 
BIT 4D TORE, , HMR 


ERROR i155 
MOV #CCLR, RKCS1(RS) 


MOV Ti, TEMP2 
JSR PC,FATTI 


SEEK TO CYL 0 


1 a 27( 1006) O8-OCT-76 23:23 PAGE 94 


;FOR RKDA=HEAD O, HEAD=1 IN B32 
FOR =HEAD 1 i, HEAD=2 IN B32 
sHEAD 2, HERD=4 IN 83 


;HEAD DECODE IN B3 INCORRECT 


;0 THRU 3 DONE? “ 
:BR_IF YES 
ELSE REPEAT 


;RECAL CMD 


sFIND ROY 
sRDY NOT FOUND AFTER RECAL CMD 


& 
;ORIVE CLEAR CMD 


;FIND ROY 
:NO_RDY gue DRIVE CLEAR CMD 
:TEST FOR ATT 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


:SEE IF 10RE IS CLEARED 
tIDAE NOT CLEARED AFTER RECAL CMD 


;LOOK FOR ATTN FROM RECAL 
;NO ATTN AFTER RECAL CMD 


+ EFERELEEELELERERELLAERERAAEERERELER AEA RARER ERE REL SEAR EEERARERED 
EST 20 


TESTS THE ABILITY TO DO A SEEK CMD. 

Went eee THERE WAS NO MOVEMENT BY CHECKING ALL APPROPRIATE 
STATUS BITS. VERIFIES CMD COMPLETION BETWEEN 10-1SUSEC. 

READ HEADER IS NOT PERFORMED AS THE PACK MAY NOT BE FORMATTED. 


+ EFEEELEEEEAERRERAELA LAER SRE LALA RELL LAALAAAAATARAARALELELELERARE 


ann RR ————————————————————————————————————————————————————————————————————————————s: | 





UNTBUS RKOG OR 
DZREHC P11 


4743 


8 


44 SSSR Bee Sb 
Ons ceenay EERE Eh 


ih 4 
tw 


Baise oe 


i lene te mene Dy OOOOONOH) OOOOOO O8U000 OOF NOOOONMOOOOHO oo 
3 : 
z 
85 
wns 
— 5 Neo 
VEQRRES 


8 
is 
: 


020010 


IVE OIAGNOST 
06-OCT-76 


biera? 


12706 


904737 
49333 


004737 
000003 


Bee? 


o 


18:09 
000001 
001100 
O46 106 


046476 
001364 


001100 
O46 108 
ooade 
044176 
000005 


100000 


000002 
000003 


044720 


001362 


O44176 


IC_ PART 1 


001174 


ack: 


003372 


003334 


003424 


003430 
003432 


003436 
003442 


000000 
000019 
009099 
003372 


MACY11 27(1006) 
T20 


TST20: 


1$: 


64S: 


65S: 


O6-OCT-76 23:23 PAGE 95 


SEEK TO CYL O 
SCOPE 
MOV 81. STIMES ::D0 1 ITERATION 
MOV aStACk, SP *RESTORE STK PTR 
JSR PC, SUBCLR :SUBSYS CLEAR 8 GET STATUS 
ERROR 24 :CERR AFTER sclR 
SR «BC, ROCYLA IREAD CYL ADOR IN RKMR3 
TST cyLADD 
FES oR 3, sCYL ADDR NOT CLEARED AFTER SCLR 
SCOP1 
MOV aSTACK, SP :RESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV #SEEK,RKCS1(RS) ;SEEK CMD: SEEK TO SELF 
MOV se tthe ait 100us tMeout 
ISR PC’ FRDY :FIND ROY 8 GET STATUS 
ERROR 13 : ROY NOT SET AFTER EEK CMD 
MOV 85, TEMPL :SETUP 100US TIMEOU 
cs PC, FATT2 ;FIND ATTN 
ERROR °NO ATTN AFTER SEEK CMD 
i ACERR, HCS1 
ERROR 210 :CERR AFTER SEEK CMD 
HOV #<D.DSC!D. SPIN!D. DROY!D. WW8D- DRA» E. AO sEXPECTED MSG AO 
SOY | Bo cpoxip. caRTIB HooK! B-BARM! BOSSP>.E.Al sEXPECTED Al 
MOV #1.£.B1 >MSG ID FOR EXPECTED MSG 81 
CLR E.Ae ‘EXPECTED MSG Ae 
MOV #2,£.82 :MSG ID FOR EXPECTED MSG Be 
MOV 83,£.83 *MSG ID FOR EXPECTED MSG 83 
ISR PC, CHKMSG ;CHECK MSGS A0,80,A1,B1 
.WORD T.Ae!T.Be!0 *& MSGS SPECIFIED HERE 
ERROR 133 :MSG AO ERROR AFTER SEEK CMD 
ERROR 134 *MSG BO ERROR 
ERROR 1235 :MSG Al ERROR 
ERROR 136 :MSG B1 ERROR 
TST CYLDIF 
BEQ 65S 
ERROR 137 :CYL DIFF NOT CLEARED AFTER SEEK CMD 
MOV #CCLR,RKCS1(RS) 
MOV SUNIT,RKCS2(RS) ;DRIVE® 
MOV #CLEAR, RKCS1(RS) ;DRIVE CLEAR CMD 
MOV TEMP! 
JSR C.FRDY :FIND RDY 
ERROR 15} :NO ROY AFTER DRIVE CLEAR CMD 


SEG 0095 





BSS BSSSSS BSS 
Saw SRLEKBE FSF 





004737 


ios184 
012737 
005037 


0137 


UNTBUS ‘Rxoe ORIVE DIAGNOSTIC PART 1 
06-OCT-76 18:09 


003424 
posse 


003436 
003442 


001174 


001176 
001400 


001404 
001404 
001402 


001402 


001402 


001404 


MACY1i 27(1006) 
T20 SEEK T 


FO8 
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CYL 0 


PC, TSTATN sTEST FOR ATTN 
ee _ gATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
8<O0!D. SPIN!D. DRDY!D. VV!D. - DRA? ,£ AD sEXPECTED MSG AO 
aD, SEOK: o. -canT#B, 90RD .BRHM!D.SSP>,E£.Al sEXPECTED Al 
FOR EXPECTED 'MSG B1 
cA EXPE TED NsG 
#2,£.B2 "MSG ID FOR EXPECTED MSG 82 
#3,£.83 :MSG ID FOR EXPECTED MSG B3 
PC. CHKMSG sCHECK MSGS AD,B0,Al 
T.Ae'T Boro -& MS Nene bFbeo ue HERE 
273 :MSG AD ERROR AFTER DRIVE CLEAR CMD 
2s :MSG BO ERROR 
374 :MSG Al ERROR 
266 :MSG Bl ERROR 
CYLADD 
tST21 -GO TO NEXT TEST 
140 AYE ADDR IN Be NOT CLEARED AFT SEEK CMD. 


ppeezegeaaneneteerirtiemurTus hah 
T N MS 


TEST SECTOR COUNT REG. 


+ LEEEEASELE EAE SARA EEE ELSE LSE L ELSES EES RAR ESE SEARLES ESSERE ESE SELES 
1: SCOPE 


#1 STINES 1 ITERATION 

#Stac ‘ieSTORE STK PTR 

< aant :SUBSYS. CLE CLEAR & GET STATUS 

#2, SESCAPE 60 TO NEXT TEST IF ANY ERROR DETECTED 

#21. ,SECNT :22 SECTOR FORMAT TEST 

PC. FSO22 -FIND SECTOR 0 

142 ;SECTOR 0 NOT FOUND BY TIMEOUT 
:PREVIOUS SECTOR 

PC, FNS22 “FIND NEXT SECTOR 

14 ;DIFFERENT SECTOR NOT FOUND BY TIMEOUT 

PSEC, ESEC 

3 :SETUP EXPECTED SECTOR 

SECTOR. PSEC ‘UPDATE PREV SECTOR 

PC RDSEC ;READ SECTOR 

SECTOR, PSEC 

65$ BR IF READ SAME TWICE 

PC. RDSEC 

SECTOR, PSEC 

5§ ;TRY 1 MORE TIME 


144 "MSG B3 ERROR, SECTOR REG UNSTABLE 
:MAY BE DURING SECTOR PULSE TIME 


SECTOR, ESEC 
66$ 
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TEST SECTOR COUNT REG. 


IN MSG 83 


;MSG B3 ERROR BETWEEN SECTOR COUNTS 
;BR IF SECTOR COUNT NOT DONE 


at ak.” attet Geen Lee co ee ee 
TEST 


THIS 1e3T VERIFIES THAT THE ABOVE TEST pre 4 hoepeertl POSITION ON CYL 


TING OUTER LIMIT AS THE ADJACENT 


HEADS WERE NOT ON CYL 0 
COULD NOT SEEK IN REVERSE DIRECTION. 


errr trier rrr t itt titer ttt tt titi ttt itit ttt titi tii itil itr ss 
: SCOPE 


+8122 


;:D0 1 ITERATION 
the oop STK PTR 


; SUBSYS CLEAR S GET STATUS 
;CERR AFTER SCL 
;BYPASS CHECKING FOR ANY CERR IN GSTAT1 
: USED FOR VALID HALT 
;PARITY & WORD 0 
sCYL 1 
;SEEK CMD 
;FIND ROY 
*NO RDY Ma Be WITH BAD PARITY 


; TEST 
:NO ATIN FROM SEEK WITH BAD PARITY 


#<D.DSC!D.SPIN!D-DRDY!D.VV!D.DRA>,E.AO ;EXPECTED AC 
#<D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP> ,E.Al 
#1,£.B1 


) 
) 
S) 


s CHECK MSGS AO,80,A1,81 
g MSGS SPECIFIED HE 
80 D ERROR AFTER SEEK WITH BAD PARITY 


‘MSG Bl ERROR 
MSG B1 ERROR 


;ORIVES 
;DRIVE CLEAR CMD 


44: ND RDY 
NO RDY AFTER DRIVE CLEAR CMD 
: TEST FOR ATTN 


ERROR 138 
$: DEC SECNT 
BNE b4§ 
CLR SESCAPE 
22 DETECT OUTER LIMIT 
BY DETEC 
AN ERROR IN THIS TEST INDICATES: 
A. 
AND/OR 8B. 
C 
MOV #1 STINES 
MOV aSTACK,S 
JSR PC, SUBCLR 
ERROR 24 
CLR LPFLG 
INC BYPCERR 
INC NLD 
MOV #PAT, RKMRI (RS) 
MOV #1, RKDC(RS) 
MOV #SEEK RKCSIC(RS) 
MOV T10, TEMP] 
ISR PC.FRDY  . 
ERROR lee 
JSR PC TSTATN ~ 
ERROR 126 
MOV 
MOV #<D.FLT!D. PAR> 
MOV 
MOV 
ISR PC, CHKMSG 
WORD oth! 
ERROR 110 
ERROR 111 
ERROR 146 
ERR 147 
MOV BCCLR, RKCS1(RS 
MOV SUNIT. RKCSe( RS 
MOV #CLEAR, RKCSI(R 
MOV 710 EHEL 
ISR Aone RDY 
ERROR 3 
SR PC, TSTATN 


0 


SEG 0097 
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SSEEUS BIP® OFAYE BERENS TE See eet ou tEa Cant? 
4S11 O20S42 o900401 BR b4g 
49) 44 104154 ERROR 154 sATTN NU. CLEARED AFTER DRIVE CLEAR CMD 
qai3 46 64s: 
1S 020546 012737 010340 003424 MOV 8(0!D. SPIN!D. DRDY!D. VV!D. DRA» ,£.A0 sEXPECTED MSG AC 
4816 O20Ss4 003426 CLR £.80 -EXFZCTED MSG 
431 029560 pesose 901720 903430 HOV 8.0. SPOK!D.CART!D. DOOR!D. GRHM!D.SSP>,E.61 sEXPECTED Al 
“ais Ben Ones po00d2 003436 sv #2,£.82 + . BOO CTED MSG 
{321 620606 612737 800003 so2442 MOV 83,£.83 nee 1 FOR EXPECTED mee BS 
4323 020614 004737 oO44720 ISR PC SHKNSG, ; CHECK MSGS 00,80 al BI se 
4 BEDPES ope e HORE 273 ;MSG AO ERROR pote it CLEAR CMD 
4926 020624 04265 ERROR 265 :MSG BO ERROR 
4927 020626 104274 ERROR 274 -MSG Al ERROR 
438 020630 104266 ERROR :MSG B1 ERROR 
a 
4932 020632 012765 o00000- 000020 MOV #0, RKDC (RS) :CYL O 
4933 020640 012765 900017 900000 MOV #SEEK RKCSI(RS) :SEEK TO CYL O 
| 4934 O50646 013 061414 003372 MOV T10, TEMP 
4935 920654 004737 044176 JSR C.FRDY :FIND ROY 
| 4836 104131 ERROR 13 "NO RDY AFTER SEEK CMD 
| 4937 O20662 O12765 100000 ooD000 MOV #CCLR,RKCS1(RS) 
4938 020570 004737 O45534 JSR Pc, GstaT 
' 4839 Q250674 004737 O4b74e J5R PC’FLIM sFIND LIMIT DETECT 
| 4340 1O41E0 ERROR 160 ‘LIMIT DETECT NOT FOUND SEFORE TIMEOUT 
4942 
| 4843 20702 032737 ocHODD0 oDa362 BIT #D.UNLD, HMR2 
| 4844 026719 9601003 BNE 1$ 
| wg4s 920712 104205 ERROR 305 ;DRIVE NOT UNLOADING AFTER LIMIT DETECT 
4346 020714 137 Oel4e2 IMP 303 :BYPASS REST OF TEST 
4948 
4945 
4850 
| 4951 
| ygte 
| 4@e3 
| 4SS4 
4Ses 
4956 
«4857 
| 4ste 
355 
4960 
4561 
wees 
4964 020720 012737 021336 O01176 1S: MOV #20$.SESCAPE | -MUST ESCAPE TO CYCLE UP DRIVE & TEST SWR 
| 4965 020726 612737 070140 903424 MOY #<D. SCID. PIP!D.SPIN'D. VV!D.DRA»,.£.AO  ;EXPECTED AQ 
«4866 020734 012737 Oo2200 oo342¢ MOV #<D.SKI'D.FLT> ,E.B0 
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ORS 
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SSE RBER 


Om RORKBE SREB FES 


sisisisisists 


state et etait ie 
PVD FOOFORUIUUD FOFOTUTOFOTD FOFOFOFOFOFOTD FUFUfOFOFOFOFUrOFOfOrD | foro 
2 


tartar ta) 

st 54 

mt 

ture 

EA AT a Se ee ee et ee ed ed OR et ed ed ed ed ed ed ed med Od ee OP et ed Od ard ord ey ert eed Ore ae ara eee at 
rors 

or 
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045720 
030001 


044720 


O444E0 
00162 
046106 


001414 
047020 


047074 


1414 
4Sle 


001176 


001362 


001364 


100000 
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oo0c0s 
001414 
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#<D.UNLD!D.REV!0.SPOK!D.CART!D.OOOR!D.SRHM!D.SSP> ,£.41 
a<D.LIMD!D.NMOV!1>,€.81 


PC, CHKMSG :CHECK MSGS AD,B0,A1,81 
odio 4 NSGs SPECIFIED HE 
16: im BO ERROR AFTER OUTER LIMIT DETECT 
163 fee a RROR 
164 MSG a RROR 
PC, TSTATN 
165 :NO ATTN AFTER OUTER LIMIT DETECT 
BYPCERR “ALLOW CHECKING CERR IN GSTAT 
PC, SUBCLR ; SUB YS 
BFSER SCLR 

T10, TEMP2 seer UP TIMEOUT 
PC FHOHM iF HEAD HOME 
1 HOME NOT FOUND BEFORE TIMEOUT 
PC, FLOAD ;FIND LOAD HEADS 

4 *LOAD HEADS NOT FOUND BEFORE TIMEOUT 
T10, TEMP2 SETUP TINEOU 
PC FATTL :FIND A 
67 ATTN NOT NE OUND BEFORE TIMEOUT 
SESCAPE 
¥D. DSC!D.SPIN!D. Ron wv!0 DRA» ,£.AQ ;EXPECTED MSG AD 
aD SPOK!D. CART!8.D00R!0.BRHM!D.SSP>,£.Al sEXPECTED Al 
#1.£.81 MSG 10 FOR EXPECTED MSG B1 
E.AS :EXPECTED MSG Ae 
#2,£.82 *MSG ID FOR EXPECTED MSG 82 
#3,£.83 *MSG ID FOR EXPECTED MSG B2 
PC, CHKMSG ;CHECK MSGS A0,B0,A 
T. A2!T. B2!0 MSGS SPectP ep HERE 
63 :MSG AO ibane AT END OF HEAD LOADING 
64 ;MSG BO ERROR 
6S :MSG Al ERROR 
66 :MSG Bl ERROR 
CYLDIF ;SEE IF ss Az=0 
175 HSS g Ae NO "NOT CLEARED AT END OF HEAD LOADING 
ce : hee 
176 me B2 NOT CLEARED AT END OF HEAD LOADING 
#CCLR,RKCS1(RS) 
SUNIT: RKCSe(RS) :DRIVE® 
riorieie CS1ICRS) ;DRIVE CLEAR CMD 

10," ROY sFIND ROY 
fe "NO RDY BFTER PPIvE CLEAR CMD 
PC, TSTATN TEST FOR A 
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DETECT Ou R LIMIT 


375 
is4 LATTN NOT CLEARED AFTER DRIVE CLEAR CMO 
8010. SPIN!D.DROY20.¥V!D.0RA.£ AC 


sEXPECTED MSG AC 
-EXPECTED MSG’ 
.SPOK!D.CART!D. DOOR'D. BRHM!D. SSP> 


,E.Al sEXPECTED Al 
41£-81 Bl it ts che CTED MSG 81 
6 
$5185 a ip Foe KTED Meg 85 
PC, CHKMSG on nsGs a0,80,A1,8 
T.RetT. Be!0 mscs rasts Ptep HERE 
355 “MSG AOD frecr AFTER DRIVE A EEA CMD 
265 :MSG BO ERROR 
er :MSG Al ERROR 
MSG B1 ERROR 
OR VALID HALT 
Bee rst URED FOR AG “oe SIs set 
tste3 igs uy NER mE I E 14 IS SET OR 
Se rte Sua Ho! apeLY 
SESCAPE 
aSLPADR 
PC, SUBCLR 
24 :CERR AFTER SCLR 
#SRTSPL,RKCS1(RS) -START SPINDLE CMD 
T10, TEMP :SET TIMEOUT 
C.FRDY :FIND RDY 
lel ‘ROY NOT FOUND AFTER ST SPIN CMD. 
10 MP2 TIMEOUT 
,P ATT PEND ATTN 
oa :NO Orin THETER ST SPIN CMD. 


PFLG 
ri 15 SUR sLOOP 

#5, SP BRET TION DRIVE 
2g RETURN TO MAINLINE 


© LELLLAEE HELA REALE RHEL RELRALA ALLE RELA LALA LEL ELA LALAELAELAELARAAE 


TEST 23 


READ HEADERS, ALL TRACKS, CYL 0 5 


THES TEST DOES NOT CHECK THE HEADERS, BUT ONLY THE FACT r 
THAT HEADERS CAN BE READ CORRECTLY BY CHECKING CERR & DTE. 


THIS TEST IS VALID ONLY IF THE PACK HAS NOT BEEN ZERO’D OUT. 


BIBS. MELEE 


ry 


8 
a | 
fe 
s 


eee 


= 
Ayal e: 
- 
£ 
N 


o 
_— 
<= 


1 Ob 
Ste: 3 
8108 OSiss2 dus?s) 
5104 1530 001405 
pits 1532 104174 
1 1534 i04401 
§107 1540 000137 
5108 
5109 1S44 016520 
§110 iSS0 016520 
pits iSS4 016520 
11 
S113 
$114 S60 032765 
5115 S66 001407 
S116 570 904737 
te4 Tag 104173 
118 76 104401 
5119 60e 000137 
5120 606 
Siel 
Slee 606 012737 
eis: 
124 
5125 
Slee 
$127 
518 
$123 
5130 
§131 
Size 
§133 
5134 


PVD PRU POW PAR Phe hwn 
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001174 


000010 


003424 


003430 
003432 


003436 
00344e 


5 LEE OS 


juts 


1S: 


64S: 


65$: 


jteeteneesnensseanantesssarenssnaneneasnsonnananenssnsnsneazons 
SCOPE 


#1 ,STIMES 1 ITERATION 
aSTACK, SP tip erbne STK PTR 
HEAD ;HEAD COUNTER 
SSTACK, SP :RESTORE STK PTR 
PC, SUBCLR 

ie :CERR AFTER SCLR 


HERD, RKDACRS) ;LOAD HEAD REG 


ee RKCS1(RS) -READ HEADER CMD 
TEMP1  ;SETUP TIMEOUT 


“FIND RDY 
le ?NO ROY AFTER READ HEADER CMD 

he RR,HCS1 

re :CERR AFTER READ HEADER CMD 

MSG18 ‘ABORT BALANCE OF TESTS 

SE0P ;ABORT DRIVE 

RKDB(RS),(ROJ+ ;1°ST WORD FROM SILO TO RHTAB 

RKDB( RS); (RO)+ a WORD 

RKDB(RS), (RO)+ :3°RD WORD 

#DLT, RKCS2(RS) 

PC, GSTAT 

? sDLT AFTER READ HEADER CMD ~~ 

MSG18 ; ABORT ING BALANCE OF TESTS . 

$E0P :ABORT DRIVE 

#<0!D. SPIN!D. DRDY!D. VV!D.DRA>,E.AD ;EXPECTED MSG AC 

E.80 jEXPECTED MSG’ BO 

#<D. SPOK!D. cART!. DOOR'D.BRHM'D.SSP>,E.A sEXPECTED Al 

#1,£.B1 1D FOR. EXPECTED’ ASC 81 

Ene B2 ie RES FOR CTED MSG B2 

#3,£.83 G ID FOR Breet EB MSG BS 

PC, CHKMSG ; CHECK NSCS a0,80,A1,8 

T.A2!T. Beto Scs SPECIFIED HE HERE 

301 sMSG AO ib hee AFTER READ HEADER CMD 

37] *MSG BO ERROR 

302 :MSG AL ERROR 


SEG 0191 
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T23 READ HEADERS, ALL TRACKS, CYL 0 


ERROR 272 ;MSG 81 ERROR 
TST es Bee Pe F MSG A2=0 
OR 1 MSG Ae "Ret CLEARED AFTER READ HEADER CMD 
b&$: ped gy M00 SEE IF MSG B2=0 
ERROR e64 [MSG Be NOT CLEARED AFTER READ HEADER CMD 


67$: HEAD 
hm i” REPEAT IF RO 


; EERE ERLE REA ERE RARE LEASE ELAL ALLL EL AALAAE LEAL REALE LER RALE SELLE 
{eTEST 24 BASIC WRITE/READ HEADER & HEAD SWITCHING TEST 


r? 
1 THIS TEST CHECKS HEAD SWITCHING BY WRITING UNIQUE HEADERS 
;* ON EACH TRACK oF CYL 0, READING SACK & VERIFYING THEY REMAINED 
i UNIQUE. 22 SECTOR FORMAT IS USED 
:# I.—. TRACK O: OR ALL $e TOR HEADERS 
# TRACK Rack J: QI0 oto VFR ALL SECTOR HEADERS 
i S FOR ALL SECTOR HEADERS 
ii aon Sepa pany enero rca 
#1 STINES ::D0 1 ITERATION 
MOV #stac ‘RESTORE STK PTR 
INC BADHDR ;USED FOR VALID HALT 
CLR HEAD ?HEAD CTR 
SCOP! 


MOV #STACK, SP 
JSR PC, SUBCLR 


;RESTORE STK PTR 


ERROR 24 ;CERR AFTER SCLR 
1$: BIS #BAI.RKCS2(RS) ;SET BUSS ADDR INCR INHIBIT 
MOV SOOT AR RKBACRS) READER WORD Fable 

MOV 8-66. , RKHC(RS) :WORD COUNT. 


SWAB 
MOV HERD, RKDA(RS) ;SETUP HEAD ADDR 
SWAB 


MOV HEAD , RO 
MOV DATAO(RO),HDTAB ; OP TOP HEA HEADER WORD FOR RKBA 


MOV #<WRHEAD> , RKCS1(RS) “WRITE HEADER CMD 

MOV 750000 TEMP 1 Py TIMEOUT 

ISR PC. FRDY *FIND RDY 

ERROR 200 "NO RDY AFTER WRITE HEADER CMD 
ISR PC, GSTAT GET FRESH STATUS 


© 


hi 








S 


e 


tr 


o eet rr) 


stat UV UPTUPTUTTUr) UTEFTUT 


wes 


rurorurururure 


ul 

tu 
— b+ b+ bb b+ 
WO NWU £ lute 


forururururure 
& 


tu 


nis 


pa a rr 
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Pil eae 18:09 T24 Baye URITE READ HEADER & HEAD SWITCHING TEST ; 


190000 003334 BIT atm 
: i3 ; Q 64 


SS 


;CERR AFTER WRITE HEADER CMD 


201 ; 
TYPE 18 ‘ABORTING BALANCE OF TESTS 
ates meatier Seg608 IMP sree i REA IVE 
ll 64S: 
022112 0127 10340 o03424 MOV #<0!D. SPIN!D. DRDY!D. VV!D.ORA> ,E.A0 sEXPECTED MSG AO 
Pes1e6 B 34e8 CLR EXPECTED. re’ BO 
tS2 Bis03? 000001 SoaNae RO 6, SPOKYD. CART? POUND GRA. SFP) -E-Ala, —-sEPECTED 
feiss ae he 003436 NOV go ge i re PECTED MSG 
O22152 012737 O00003 oOs442 MOV #3,£.83 :MSG ID FOR EYPECT MSG 
pesiey po00dg Teo Rett Beto FTN MOBS wee SPECIFIED HERE 
Dees iosers ERROR ei Stade. iS AD ib ane 39k tate ADER CMD 
170 104267 ERROR ? ?M5G BO ERROR 
N22172 104300 RROR 300 :MSG Al ERROR 
022174 104276 RROR 270 *MSG 81 ERROR 
022176 005737 001362 TST CYLDIF ;SEE IF MSG A2=0 
Jeeene 1401 BEQ 5 :BR IF YE 
2204 1043 ERROR :MSG A2 NOT CLEARED AFTER WRITE HEADER CMD 
005737 001364 65$: TST CYLADD :SEE IF MSG Be=0 
Pele 001401 BEG BES :BR IF YES 
e214 304 ERROR 3U4 !MSG B2 NOT CLEARED AFTER WRITE HEADER CMD 
0222!" GES: 
022216 005237 901430 INC HEAD 
Qe2z222 023727 001430 opon02 CMP HEAD, #3 
022230 o01256 BNE 1$ 
022232 005037 001430 CLR HEAD ;HEAD CTR 
022236 104415 SCOP1 
022240 012706 001100 MOV 8STACK, SP ;RESTORE STK PTR 
004737 O46106 JSR PC, SUBCLR 
O22250 104024 ERROR 24 ;CERR AFTER SCLR 
022252 000337 001430 23: SWAB HEAD 
022256 013765 001430 op0006 MOV HEAD,RKDA(RS)  ;SETUP HEAD ADDR 
022264 000337 001430 SWAB HEAD 
022270 012700 001674 MOV #RHTAB. RO 
022274 bie76s 000025 op0000 MOV #<RDHEAD> , RKCS1(RS) *READ HEADER CMD 
022302 013737 001426 003372 MOV TSO000, TEMP! ;SETUP TIMEOUT 
022310 004737 044176 JSR PC. FRDY FIND RDY 
022314 104171 ERROR 17] ?NO RDY AFTER READ HEADER CMD 
022316 032737 100000 002334 BIT #CERR,HCS1 
022324 0014 67$ 


BEG 
Oee3se& 104174 ERROR 174 ;CERR AFTER READ HEADER CMD 
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BASIC WRITE/READ HEADER & HEAD SWITCHING TEST 


TYPE 
JMP 


67$: MOV 
MOV 
MOV 


68S: 


69S: 


708: 


2$: MOV 


4$; INC 


MSG18 : ABORT BAL ANCE OF TESTS 
$e0P ABORT DRIVE 


RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAE 
;2°ND WORD 


RKDB(RS),(RO}+ ; 
RKDB(RS),(RO}+ ;3°RD WORD 


aS neers 


¢, GSTAT 
173 ;DLT AFTER READ HEADER CMD 

MSG18 ‘ABORTING BALANCE OF TESTS 
$e 0P :ABORT DRIVE 
#Q10. SPIN!D. -DROYD. WWD, DRA sDRA» E. AG ;EXPECTED MSG AQ 
#<D. SPOK!D. cART!D. OR! P>, sEXPECTED Al 
i 1,E- Bl se 16 er ; Bata Feet 81 

M 

ts . BS iy ip FoR pirecr TED ee BS 
PC, CHKMSG : CHECK sg 80, 80, Al 

TAetT. B2!0 Woe SPEC {FLED HERE 

:MSG AO Brack oe EAD HEADER CMD 

Ht ;MSG B0 
302 MSG A ERR ROR 
272 MSG 1 ERROR 
CYLDIF ;SEE IF MSG A2=0 
69% :BR IF YES 
172 "MSG A2 NOT CLEARED AFTER READ HEADER CMD 
CYLADD :SEE IF MSG Bo=0 
70$ BR IF YES 
264 MSG B2 NOT CLEARED AFTER READ HEADER CMD 


HEAD 
HEAD,RKDA(RS)  ;RESTORE RKDA 
~ HEAD 


#RHTAB, R1 
WOCNT sHEADER WORD COUNT 
HEAD, RO 

sDOUBLE RO 
DATAO(RO), TEMP! :GET THE ‘SHOULD BE’ DATA 
(R1)+, HOW :READ HEADER WORD 
HOWD, TEMP 1 
202 ;READ HEADER MISMATCH 
WDCNT ¥ 
WOCNT , 93 :DG ONLY 1 SECTOR 


Ww 
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RKO DRIVE DIAGNOSTIC PAR 
F.P1l  O6-0C7-76 18:59 


003424 
003430 
003432 


OO343E 
00344e 


macys 27¢ ruse eae HEADER B HEAG SUDTCHING TEST 


INC HEAD 
CMP HEAD, 82 sALL 3 HEADS DONE? 
ses TST26 -GO TO NXT a IF yes 
23 ter SE REPEAT 
rma 
: STEST 25 BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 
i USING HEAD 0, WRITE 8 READ 20 SECTOR HEADERS BY WRITING 
:# I'S A S_HERDERS. aTTEMeT TO FIND SECTORS 20 8 21. VER fey 
" THEY AR GER THERE BY READING 22 SECTORS AND NOT 
:* FINDING O° S Ae DATA FROM THE PREVIOUS TEST. 
: = SSSSSSSSSFSSSSSSSSSSSSSSSSSSSFSSSESSLSSSSRERSSLSSESFSESSSESSLSE SLE 
725: SCOPE 
MOV al STINE 1 ITERATION 
MOV astAc ‘iporhpe stk PTR 
JSR PC, SUBCLR 
ERROR 24 :CERR AFTER ‘SCLR 
EIS tonite :SET gBus 600 BOOR INCR INHIBIT 
MOV erat oa ‘ORS boone” 
MO’ 8<CFMT!WRHEAD> ,RKCS1(RS) ;WRITE HEADER CMO 
MOY TSO000. TEMP1 ° ;SETUP TIMEO 
35 PC FRDY :FIND RDY 
ERROR 20 "NO RDY AFTER WRITE HEADER CMD 
ISR PC. GSTAT :GET FRESH STATUS . 
err aCERR, HCS1 
ERROR Sot :CERR AFTER WRITE HEADER CMD 
TYPE MSG18 ; ABORTING BALANCE OF TESTS 
IMP $E0F :ABORT DRIVE 
e4$: 
MOV #<CFMT!SELDRV> ,RKCS1(RS) :GET 20 SECTOR STATUS 
MOV T10, TEMP! 
ISR PC FRDY sFIND RDY 
ERROR 11? *NO RDY AFTER SELORV CMD 
git aD. FORM, HR 
ERROR 312 sFORMAT NOT SET AFTER WRITE HOR CMD 
1$: 
Moy #010. .SPIN!D. ORDY!D. 5 VED. .DRA>.E.A0 sEXPECTED MSG AO 
MOV 8<D. SPOK!D. carts b: DOOR!D.BRHM!D.SSP>,E.A sEXPECTED Al 
MOV $1.£.B81 MSG 1p FOR EXPECTED MSG ta 
CLR E.Ae ;EXP ECTED MSG Ae 
MOV #2,£.B2 “MSG ID FOR EXPECTED MSG Be 
MOY #3/£.83 :MSG ID FOR EXPECTED MSG 83 
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000990 
003372 


003334 


000000 
003372 


003362 


003424 
003430 
003432 


003436 


pee id 27() “OCT-76 23:2 
Tes tae ha 


JSR 


2s: 


6s$: MOV 


bes: 


6$: 


09 


tret GE 106 a 
/RERD HEADER Est: ALL 1°S, 20 SECTORS 


aaron ip rts Seec i AEE neAF 


6 ings &) Er ROR AFTER WRITE HEADER CMD 
00 ;MSG A ROR 


270 MSG 8 ERROR 
SECNT sSECTOR COUNT 
aSTACK, SP :RESTORE STK PTR 
PC, SUBCLR 
24 :CERR AFTER SCLR 
BRHTAB. RO 
8<CEMTIRDHEAD> ,RKCS1(RS) sREAD HEADER CMD 
TSOO00, TEMP1 ° ;SETUP TIMEOUT 
RDY :FIND ROY 
1 :NO ROY AFTER READ HEADER CMD 
SCERR, HOS! 
174 :CERR AFTER READ HEADER CMD 
MSG18 "ABORT BALANCE OF TESTS 
$e OP :ABORT DRIVE 
KDB (RS), (R0)+ :1'ST WORD FROM SILO TO RHTAE 
RKDB(RS)'(RO)+ :2°ND WORD 
RKDB(RS)°(RO)+ ;3°RD WORD 
#DLT,RKCS2(RS) 
PC GSTAT 
‘Vy Bee ;DLT AFTER READ HEADER CMD 
MSG18 !ABORTING BALANCE OF TESTS 
_ $E0P ;ABORT DRIVE 
#<CFMT!SELDRV> ,RKCS1(RS) 
T10, TEMP! 
PC FRDY :FIND RDY 
1? !NO RDY AFTER SELDRV CMD 
0. FORM, HMR 
313 :FORMAT NOT SET AFTER READ HDR CMD 


#<O!D.SPINID. DROVIO YEO, OF .DRA> ,E.A0 ;EXPECTED MSG AO 


EC "BO 
#<D. SPOK!D. cAaRT#D. DOOR!D. BRR M!D.SSP>.E£.Al sEXPECTED Al 
#1,£.81 “MSG ID FOR EXPECTED MSG B1 
E.Ae :EXPECTED MS 
#2,£.82 :MSG ID FOR EXPECTED MSG B2 
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DZREHC P11 06-007 


re) 
S420 Oeszee i04e7 
S¥el Qe33e4 

ess Oesseé i04e7e 
S4#e4 023330 005737 
ce Eee 2s 
S4e? 023340 737 
fe Be Ee 
fe Be 

S431 023380 012701 
S4se 

E433 023354 

S424 023360 pis’ s2 
S435 023366 Qle 
S436 Oei37e Oe 

S437 023402 00140!) 


5448 

5443 

Eu 

S445 

S446 

5447 

5448 
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Oe3422 012737 

E451 023430 Ole706 

E453 923424 004737 

B4s4 Oe 1040e4 

5456 022442 005237 

E457 

5458 02 012765 

45S 23454 Ole7e5 

e160 Oe 012737 

E42 022470 013737 

S463 23476 012737 

E464 023504 012737 

sie 023512 004737 

S167 C2356 012765 


468 
S46S 22524 012765 
S470 Oe3S22 013737 


909003 
044720 


001362 


001364 


001674 
001442 
001450 
001454 
001454 


001442 
00 i4#4e 


003442 


003372 
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000003 


001174 


pasvad 27 -76 23:23 PAGE 107 
Tes BRST: bat READ HEADER test; MLL 1°S, 20 SECTORS 


MOV «8,€.82  ~ :MSG ID FOR EXPECTED MSG 62 
ISR PC, CHKMSG ; CHECK nSGs Ad,80.8 
‘WORD T.Ae!tT.B2!0 mscs SPEC tFigp HERE 
ERROR dt sMSG AO ib fe o2. AD HEADER CMD 
ERROR 27} :MSG BO ERROR 
RROR 302 :MSG Al ERROR 
ERROR 27e “MSG Bl ERROR 
TST CYLDIF ;SEE IF MSG Ag=0 
BEG 67§ IF YES 
ERROR 172 iMSG A2 NOT CLEARED AFTER READ HEADER CMO 
&7$ TST CYLADD :SEE IF MSG B2=0 
BEQ £g§ :BR IF YES 
ae ERROR 264 !MSG B2 NOT CLEARED AFTER READ HEADER CMD 
"MoV #RHTAB,R1 
23 CLR WOCNT ;HEADER WORD COUNT 
MOV DATAL, TEMPL ;GET "SHOULD BE’ DATA 
$ MOV (R1)+°HOWD HEADER WORD 
CMP HOWO, TEMP I MATCH OK? 
BEQ :BR IF YES 
ERROR :READ HEADER MISMATCH 
Ss: INC WOCNT 
CMP WOCNT, #2 :JUST 1 SECTOR AND 1 HEAD 
BNE ug 
+ SELSSESSESESSSRELSSE LESSER SSSSSFRAELASLLSLEERALSSARALL TAA RSLFRELITE 
: TEST 26 WRIT AD HEADERS CYL 0 
ae CS See ee 
MOV #1 STINE ::D0 1 ITERATION 
MOV aStAc tier dee STK PTR 
R PC, SUBCLR 
ZBROR 24 an ;CERR AFTER SCLR 
INC BYPFMT ;SET BIT 14.8 15 IN HEADER 
MOV  -#HDTAB,RKBA(RS) ;HEADER WORD TABLE 
MOV #-66. RKWC(RS) WORD COUNT. 
MOV #0, TOCYL 
MOV TOCYL,CALADD §_ ; SETUP 
MOV #0, HEAD :TO FILL 
MOV 80; FORMAT HEADER 
ISR PC’ FHOTAB : TABLE 
MOV #0, RKDC(RS) :CYL# 
MOV #<WRHEAD> , RKCS1(RS) “WRITE HEADER CMD 
MOY Ts0000. TEMP! ;SETUP TIMEOUT 













| UNTBUS RKOG OR NOSTT 
grote I 


pres Bo rit PART | pee vas 27 £4906} aren wenn oe, P 186 SEG 0108 





S47] 023540 004737 04417 ISR PC _FRDY 
75 Sezet 12200 ERROR 200 ith ova: AFTER WRITE HEADER CMD 
43 4g 737 94s534 ISR BC GSTAT IGET FRESH STATUS 
474 és SiGe 100000 003334 BIT a HCS1 
475 14 Q 
| Be pears fre mecie REORTING SOLANGE OF SESTs 
47 l eet IMP eee ABORT IVE 
se be3s74 64$: 
Eu8] 023674 012737 O10340 o034e4 MOV #(0!D. SPIN!D. DRDY!D. VV!D.DRA> .£.A0 sEXPECTED MSG AO 
| Be 023602 003426 CLR E.80 TED msc’ 80 ; 
E183 sebct = 737 ? 30 MOV $0, SPOK!D.CART!#.DO0R!0. BRHM!D.SSP>,£.Al sEXPECTED Al 
«Elec Besess ShEr3? Vomdnes mee aE He 1p FOR EES TED ASG Bt 
| Ele Oest26 Ole?37 een 002436 MOV a2,£.82 MSG ID FOR EXPECTED MSG B2 
ete? 023634 012737 900003 o0244e2 MOV #3.£.83 :MSG ID FOR EXPECTED MSG 83 
4 4 737 044720 ISR PC, CHKMSG sCHECK MSGS AO,80,A1,81 
2753 S5ee roast esi -8 SPECIFIED HERE 
e131 023650 104277 E 277 :MSG AO ERROR AFTER WRITE HEADER CMD 
OexeS2 104567 ERROR 267 “MSG BO ERROR 
£493 023654 104500 ERROR 300 *MSG Al ERROR 
ae 023656 104270 ERROR 270 MSG a1 ERROR 
ae DE3660 995097 001400 CR SECNT :SECTOR COUNT 
| 2132 G23666 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
E500 023672 004737 O4610E JSR PC, SUBCLR 
Fol 02367E id4024 ERROR 24 sCERR AFTER SCLR 
| 
es: 023700 012765 o00000 oD00e0 MOV #0, RKDC (RS) :CYL # 
S505 023706 012700 o01674 MOV #RHTAB, RO 
| §507 023712 012765 o00025 OD0000 —5$: MoV #RDHEAD, RKCS1(RS) “READ HEADER CMD 
| Eepg Beecse bha7as padise SOSve RR ha 
| S510 Oe273e 104171 ERROR ti !NO RDY AFTER READ HEADER CMD 
e511 363734 Gse737 100000 0903334 B17 SCERR, HCS1 
| 5513 023749 1041 ERROR 174 ;CERR_AFTER READ HEADER CMD 
 §515 023746 104401 ost606 TYPE MSG18 !ABORTING BALANCE OF TESTS 
«ERIE Gegrse 00137 043470 gmp SEOP ;ABORT DRIVE 
| $517 023756 o16se0 co00e4 663: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
| 5818 o83762 O16520 o00024 MOV RKDB(RS);(RO)+ :2°ND WORD 
513 C23766 016520 00004 MOV RKDB(RS)'(RO)+ :3°RD WORD 
} 
eel 929778 gz2765 100000 900010 eI BOLT,RKCS2(RS) ;SEE IF DATA LATE 
_ 5623 024002 004737 o4s534 ISR PC, GSTAT 
| §524 O24006 104173 ERROR 173 ;DATA LATE ON READ HEADER 
| 835 Qe4oio 104401 TYPE MSG18 ABORT BALANCE OF TESTS 


OSEEDE 
S526 024014 000137 043470 IMP $E0P ABORT DRIVE 
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003372 


000102 


T2é 


&7$: 


68$: 


MACY11 27° raiter? 23:23. * 18 SES C199 


Ro “feAbeRs CYL O, 


CMP RO, SRHTAB+132. ;ALL 6 foros DONE? 
BNE sé :BR IF N 


;SORT RHTAB INTO oo SO THAT IT 
BEGINS WITH SECTOR 
WORD COUNT 


ACTUAL HEADER TABLE 
;CALC HEADER TABL 


JSR PC, SORT 


WOCNT 
MOV #SRTTAB, RO 
MOV #HOTAR, Ri 
MOV (RO)+, HOWD 


MOV (R1)+. TEMP 

CMP HOWD, TEMP 1 ; COMPARE, ACTUAL WITH CALCULATED WORD 
BEG 63s ;BR IF 

ERROR 202 ;READ HERDER MISMATCH 

INC WOCNT 

CMP WOCNT, #66. L WORDS DONE? 

BNE 68s IF NO 


CLR BYPFMT ;ALLOW CORRECT FORMATTING 
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Ae 27( 1006) 
Te6 WRITE & 


-OCT-76 23:23 PAGE 110 
RAD HEADERS CYL 0, HERD 


; RRERERERAEERESSESERSESESSESESASSESERSS SEE ESR RESALE SALE REE REESE ES 
SEEK FROM CYL 9 TO 1 & READ HEADERS 


3:2 


paperegeeerenrenresranrs 


juteee 


18: 


 aTEST 2 


hom 


THIS TEST CHECKS MSG A & B WORDS 0,1,2 FOR CORRECT STATUS AFTER RADY 


i. at ye FROM A SEEK CMD TO DE 
BeTER veh ig RECEIVED, CERR 1 oe Fo Bi ERRORS. 


iN” Msc BE ee VERIFIED be I 


HEADERS ARE READ FROM 1 SECTOR 
DIFFERENT FROM CYL O TO SHOW Boat THE 


[Peeeeoneneaenenannneannneaenceanseaneeansaeacennaneseaceatess 
SCOPE 


#1 a 
aSTACK 
PC, CuBeeR 


#1; CALDIF 
#1 RKDC(RS) 
810, SESCAPE 


#SEEK,RKCS1(RS) 
T10, TEMP 
FC FROY 


ED TO BE 0 & CYL AD 


woe VERIFIED THAT THEY ARE 
ADS DID ACTUALLY MOVE. 


1 ITERATION 
‘AeSTORE STK PTR 


;CERR AFTER SCLR 


;SET FOR CYL 1 


; SEEK CMD 
; SETUP YIMEOUT 


;NO RDY AFTER SEEK CMD 


13 
at aie .SPIN!D: VV!D.DRA>,E.AQ ;EXPECTED AC 
eA acme prc «steps teeecompatin eects 


PC, CHKMSG 
T.RetT.Bet0 


205 

206 
CYLDIF, #1 
1$ 


ele 


#123, SESCAPE 
T2500, TEMP 


:CHECK MSGS 9 B0,A1,8 
SpECtETED HERE 
:MSG AOD o Eraak DURING SEEK CMD 


:MSG Ly 
;MSG Al ERROR 
:MSG Bi ERROR 


;CYL DIFF INCORRECT DURING SEEK CMD. 


;SETUP TIMEOUT 
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000001 


__HO9 
Tae Eee hom Eve G16 1 READ HEROERS 


64S: 


&5$: 


6é$: 


PC. FATT2 sFIND ATTN 
13 FRNA AFTER SEEK CMD 
ACERR, HCS1 
210 ;CERR AFTER SEEK CMD 
8D. DSC!D. .SPIN!ID. -DROY#D.¥ Jw! ip.DRe .DRA>,E.AO ;EXPECTED MSG AC 

5. SPOK!D. CART! 6. BOORIBS BRB SSP>,E.Al sEXPECTED Al 
#1,£-81 “Bl MSG p FORE EXPECTED MSG Bil 
= : MSG Ae 
ec. £.Be :MSG ID FOR EXPECTED MSG 
#3,£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ; CHECK nsgs Ag, 80 
T. A2!T.B2!0 MSGS “SPECIE ED HERE 
133 sMSG AD ib .beS AFTER SEEK CMD 
134 G BO ER ROR 
1 MSG Al ERROR 
136 nee B1 ERROR 
coger 
137 :CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR,RKCS1(RS) 
SUNIT RKCS2(RS) ;DRIVE® 
#CLEAR, RKCS1(RS) :DRIVE CLEAR CMD 
740 TEMP 
PC. FRDY sFIND ROY 
1s} RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR ATTN 
154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<0!D.SPIN!D. DRDY!D. VV!D.DRA> ,E.AD ;EXPECTED MSG AC 
E.B0 . D msG’BO 
#<D.SPOK!D.CART!O. D000: .BRHM!D.SSP>,E.Al sEXPECTED Al 
#1,.£.B1 FOR EXPECTED'MSG B1 
8 :EXPECTED MSG Ae 
ae, ¢.£-B2 :MSG ID FOR EXPECTED MSG B2 

:MSG ID FOR EXPECTED MSG B3 
PC, CHKMSG ;CHECK MSGS AD,B0,A 
i felt. B2!0 -& MSGS CAPA Eten 
:MSG AO ERROR AFTER DRIVE oEEaR CMD 

ete :MSG BO ERROR 
274 :MSG AL ERROR 
266 :MSG Bl ERROR 
CYLADD 
CYLADD, #1 


SEG Clll 


57’ 


104415 
012706 


004737 


005737 
001001 
104211 


004737 
104024 
012765 
013737 
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001674 
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So 
ooode4 
000024 
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‘045534 


Basso 
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PART | 


000020 


000000 
003372 


003334 


000010 


000001 


000000 
003372 


é 


67$: 


£8$: 


3$: 


4$: 


6s: 


eri 27( 1006) 


BEG 
ERROR 


SCOP i 
MOV 


JSR 
ERROR 


at 


O6-OCT-7& 23:23 PAGE 112 
SEEK FROM CYL 0 TO 1 & READ HEADERS 
2g 
20? sCYL ADDR INCORRECT AFTER SEEK CMD 
aSTACK, SP :RESTORE STK PTR 
PC, SUBCLR 
24 :CERR AFTER SCLR 
SESEDECRS) «Ss CYL 
SRHTAB 
SC RORERDS RKCS1 (RS) “READ HEADER CMO 
730000, 7 TEMP 1 TUP TIMEOUT 
PC FRDY 'F 
171 NO RDY AFTER READ HEADER CMD 
rs RR,HCS1 
ae 6 aE 
seo iAEORT BRIve 


RKDB(RS), (RO)+ 
RKDB(RS), (RO)+ 
RKDB(RS) (RO)+ 
#DLT,RKCS2(RS) 
PC. GSTAT 

54 


MSG18 
$E0P 


RHTAB 
3$ 

211 
RHTAB, #1 
4 

202 

PC, SWTST 
TSt30 


PC, SUBCLR 
24 


#SEEK RKCS1(RS) 


T10, TEMPL 


3, ST WORD FROM SILO TO RHTAB 
"ND WORD 
"RD WORD 


;OLT AFTER READ HEADER CMD 
;ABORTING BALANCE OF TESTS 
;ABORT DRIVE 


;CHECK 1’ST WORD ONLY:CYL# 
;CYL O HEADER ON CYL 1 


;READ CYL WORD HEADER ERROR 


:SEE IF SW 14 OR 8 IS SET 
::GO TO NEXT TEST 

‘RETURN HERE IF SW 14 IS SET OR 
Sli 8 WITH SWR <7:0> APPLY 


;CERR AFTER SCLR 


;SEEK CMD TO RECONDITION ORIVE. 
:SETUP TIMEOUT 


SE 


4 


Cilz 


JO9 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 1  MACYLI 27(1006) O6-OCT-76 23:23 PAGE 113 SEG 0113 
DZREHC.P11  O&-OCT-76 18:09 127 SEEK FROM CYL 0 T0 1 8 READ HEADERS 

5720 oO25000 O04737 O44175 ISR PC FRDY :FIND ROY 

€721 O25004 104131 ERROR ial "NO RDY AFTER SEEK CMO. 

025008 013737 o01424 003372 MOV TSOOO, TEMP: 
2 025014 004737 o44606 JSR pC Fate FIN ATTN 
1041 E OR 1 °NO ATTN AFTER SEEK CMD 

2 100000 002334 IT aCERR,HCS1 

£727 025030 001401 SEQ £95 

8 025032 104210 ERROR 210 ;CERR AFTER SEEK CMD. 

730 025034 004737 O46106 69$: JSR PC, SUBCLR 

ee 025040 104024 ERROR 24 ;CERR AFTER SCLR 

2033 O2s042 012737 oso340 oO34e4 MOV a0. DSC!D. SPIN!D. DRDY #0. wid. DRA? E.R0 ;EXPECTED MSG AC 
aoa 4 Wee nate ot : D 1D. carTebe EXPECTED Al 

‘ < : 
em feet! fleet BAe {esepec. ome SS SB if 

2538 025074 012737 Spaces 003436 aby a Re 2 cere fOr FOR POP YPECTED MSG 82 
Erg Beloe Bis°37 po0003 Doses Mov 83,£.83 MSG ID FOR EXPECTED MSG 83 

5745 110 004737 044720 ISR PC, CHKMSG ;CHECK MSGS AO,BO,A 

a ath ae ERROR wee MSG AO ERROR TR Heo sere 

4 

6745 025120 104134 ERROR 1 g ag ERR 

E746 Oesice 0413s ERROR 135 nee Al BERR 

5747 025124 104136 ERROR 136 :MSG B81 ERROR 

5748 025126 005737 001364 TST CYLADD 

5749 025132 001401 BEQ ‘3 

E50 025134 104043 ERROR 4 ;CYL ADDR IN RKMR3 NOT=RKDC 

E752 025136 73: 

£753 025136 O0S037 001176 CLR SESCAPE 

5754 O25 142 ous 7322 901410 TSI LPELG 

E5EF BSE ies pba 153734 IMP JS_LPERR :SW 9 WAS SET. 

272 025154 000177 153726 70$: IMP aSLPADR :SW 14 OR 8 WAS SET 

E759 025160 108: 

5760 025160 005237 o01410 INC LPFLG 

5761 025164 001000 153746 BIT #SW9, JSWR ;LOOP ON ERROR? 

E762 025172 001271 BNE &$ YES, RECONDITION DRIVE 

S763 025174 000137 oce4ete IMP 1$ RETURN TO MAINLINE 

E764 O2s200 12$: 

£765 025200 005237 001410 INC LPFLG 

E766 Oes2e04 032777 001000 153726 BIT #SW9, ISWR sLOOP ON ERROR? 

57E7 OeSele 001261 BNE 6$ YES, RECONDITION DRIVE 

3768 025214 900137 o24see IMP 23 RETURN TO MAINLINE 

5770 

2555 _ 

5773 4 biter ao WRITE B READ MEROERS CYL 1 HEAD OS 
£774 ETE RITE & READ HEADERS CYL 1 

S775  ETENESANERERADTTLERSAEETEDITEOSATEROSAASESSOSESOAEEEAEARIEES 


UNIBUS RKOG DRIVE DIAGNOSTIC PART 1 
OZREHC.P11 -76 18:09 


5776 


SB cnneces 


COCO COC COC EEO ED 
2 bs = bb be 0 he 
WONMU Ss wre O 


RSS 


G2S220 


0-00 
000004 


004737 
104024 
012765 


boi 100 


046106 


000001 


001174 


boboae 


001352 


boia30 


001436 
000020 


000009 
003372 


003334 


003424 
003430 
003432 


003436 
003442 


000020 


he PS a 
T30 


TST30: 


64S: 


WRITE & 


KO9 


-OCT-76 23:23 PAGE 114 
MP HEADERS CYL 1, HEAD 


#1, S$TIMES :;D0_1 ITERATION 

aStACK, SP :RESTORE STK PTR 

PC, SUBCLR 

24 ;CERR AFTER SCLR 

BYPFMT ;SET BIT 14 8 15 IN HEADER 
T RKBACES) ; R WORD T 
pre ,R a5 ibe Fount — 

++) rm 

TOCYL,CALADD § ; SETUP 

#0, MEAD TO FILL 

#0, FORMAT : HEADER 

PC’ FHDTAB : TABLE 

#1, RKDC(RS) CYL# 


#<WRHEAD> . RKCS1(RS) :WRITE HEADER CMD 
TSO000, TEMP1 ©; SETUP TIMEOUT 
PCF FIND RD 


RDY : Y 
NO ROY AFTER WRITE HEADER CMD 
;GET FRE 


¢, GSTAT SH STATUS 

ACERR, HCS1 

201 ;CERR AFTER WRITE HEADER CMD 
MSG18 ; ABORTING BALANCE OF TESTS 
SE0P :ABORT DRIVE 


#<0!D.SPIN!D.DRDY!0.VV!D.DRA>,E.AC ;EXPECTED MSG AD 


E.B 
#<D.SPOK!D. carTsb. sel BRHM!D.SSP>,E.Al ;EXPECTED Al 
#1,€.81 ID FOR EXPECTED MSG B1 


HF tSPECTED MSG Ae 

#2,£.B2 *MSG ID FOR EXPECTED MSG 82 

#3,£.83 :MSG ID FOR EXPECTED MSG B3 

PC, CHKMSG ;CHECK MSGS A0,80,A1,81 

I. pert. B2!0 *& MSGS SPE AHF TED HERE 
:MSG AO ERROR AFTER WRI fe HEADER CMD 

ae ;MSG BO ERROR 

300 ?MSG Al ERROR 

270 MSG at ERROR 

SECNT ;SECTOR COUNT 

#STACK, SP sRESTORE STK PTR 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


#1,RKDC(RS) ;CYL & 


SEG 0114 


a cn ee cr 


UNTBUS Ty DRIVE 2 eg PART 1 


OZREHC . 


cess 
cess 


SOUMAROM Seed taae sae 


& 
Re 


5862 


Pll 0&-0CT-76 


O2Ss06 012700 


BSEez5 
Opeese 


004737 
005937 
012700 
012701 
025646 012037 
012137 
023737 
001401 
104202 
005237 


023727 
001361 


005037 


001674 


boiss0 


044176 
100000 


72 
001454 
pots 

1442 


001464 


bosave 


003334 


000010 


003372 


000102 
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730 WRITE & READ HEADERS CYL 1, HEAD 0 
MOV #RHTAB, RO 
65$: MOV SROHEAD RKCSI(RS) - “READ HEADER CMD 
MOV TS00, TEMP1 s SETUP TIMEOUT 
dion Ta Rh 
oR 17! NO Y AFTER READ HEADER CMD 
gir BCERR, HCS1 
Fee oR 1 ;CERR AFTER READ HEADER CMD 
TYPE MSG18 :ABORTING BALANCE OF TESTS 
IMP $e0P ‘ABORT DRIVE 
66S: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAS 
MOV RK R )* (RO)+ 8. Wo 
MOV RK »*(RO)+ 33° 
BIT #DLT,RKCS2(RS) ;SEE IF DATA LATE 
ISR PC, GSTAT 
ERROR 1 :DATA LATE ON READ HEADER 
TYPE MSG18 ‘ABORT BALANCE OF TESTS 
IMP $e OP :ABORT DRIVE 
67S: CMP RO, #RHTAB+132. ;ALL 6&6 WORDS DONE? 
BNE es$ :BR IF NO 
ISR PC, SORT ;SORT RHTAB INT SRT Tae SO THAT IT 
GINS WITH SECTOR 
CLR WOCNT 
MOV #SRTTAB, RO see HEADER TABLE 
MOY 8HDTAB, Ri :CALC HEADER TABLE 
683: MOV (RO)+,HOWD 
MOV (R1)# TEMP 1 
CMP HDWD, TEMP ;COMPARE ACTUAL WITH CALCULATED WORD 
BEQ 69$ BR IF COMPAR 
3 ERROR 202 READ HEADER MISMATCH 
69S: INC WDCNT 
CMP WOCNT, 866. ;ALL WORDS DONE? 
BNE 68S :BR IF NO 
CLR BYPFMT sALLOW CORRECT FORMATTING 


VERIFIES THAT W 


kT 
* 
; TEST DID NOT OVERWRITE CYL 0 HEADERS. 
# 
* 


5 LERLE RE R REE EE EERE REEL EERE EE EERE EE AAE EERE EEE REL EE EEE AREA EEEER 
TEST 31 TEST RECALIBRATE CMD & READ HEADERS 


THIS TEST DOES A ae & READS HEADERS. 


HEADERS ON CYL 1 FROM THE PREVIOUS 


AN ERROR IN THIS TEST INDICATES THAT HEADS: 


Pil 


5 

5908 

5903 Oeb0ee 
5910 Oe6030 
$911 Oe603e 
$91 

Ba ie 
5915 

5916 Oe60S4 
5917 

eai8 oc 
ab Be 
fe it 
592 6076 
=e 
5926 Beeibe 
$927 

59¢8 peelio 
oe Bs 
5931 026130 
5932 aatey 
5933 Oe6l 
5934 Oebi4e 
5935 Oe6144 
5336 5 
5937 026144 
oe Ee 
Ge Ge 
5941 026172 
S342 026176 
5943 Oebe04 


0050 
012737 
012737 
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001174 


001350 
001360 
001176 


000000 
000026 


003362 


003424 


003430 
003432 


301176 
003372 


003334 


003424 


7p posse 


003436 
003442 


MACY11 27(1006) 


06-OCT-76 23:23 PAGE 116 


131 TEST RECALIBRATE CMD & READ HEADERS 
:# A. MOVED TO A CYL OTHER THAN 1 
is OR 8. DID NOT GET BACK TO CYL O , 
© SSSSEESESLSSLASSAERARSLALELELL SERA RARE SALEAERSL LE SLEASFSASELAFESAE 
ure SCOPE 
v #1, S$TIMES ;:D0 1 ITERATION 
MOV #Stack, SP ‘eo TORE STK PTR 
SR PC, SUSCLR 
RROR 24 ;CERR AFTER SCLR 
MOV #1, FRCYL : PARAMETERS 
"ts 
#1. CALDIF ‘ERROR TYPEOUTS 
may HRCA BREST RS om 
MOV #5 Fea s SETUP Tine SC 
ISR PC, FRDY FIND RDY 
ERROR 124 NO ROY AFTER RECAL CMD 
MOV CLR, RKCS1(RS) 
MOV #1, RKMRI CRS) ;SELECT WORD 1 
ISR "GSTAT 
BIT #D:RTZ, 
ERROR 307 ;RTZ NOT SET DURING RECAL CMD 
1$: Nov #<D. PIP!D. SPIN!D.WV!D.DRA> ,E.A0 sEXPECTED AO 
MOY #<D_RIZ!D. REV!D. SPOK!D. CART!D.DOOR!D. BRHI!D. SSP) ,E.Al 
MOV 1,£.81 
JSR PC, CHKMSG ; CHECK NSGS Ag 
.WORD T.Ae!0! mscs “SPECI LED HERE 
ERROR 213 MSG AD ERROR cua ECAL CMD 
ERROR 214 :m5G BO ERROR 
ERROR 215 ?M5G Al ERROR 
ERROR e216 :MSG Bl ERROR 
qs! CYLDIF 
ERROR 217 ;CYL DIFF INCORRECT DURING RECAL CMD. 
2s: MOV #123, SESCAPE 
MOV #-1, TEMP j SETUP TIMEOUT 
ISR FC,FATT2 :FIND A 
ERROR :NO aTTN TAFTER RECAL CMD 
BIT #CERR,HCS1 
BEQ ee 
oe ERROR 220 :CERR AFTER RECAL CMD 
Hoy ag, Dsct 'D. SPIN!D. Pee hs WED. DBR? E.AO ;EXPECTED MSG AO 
MOV wD SPOK!D. carts b: OOR!D “Bert SSP>,£.Al sEXPECTED Al 
MOVs #1 EBL Hee ib SE MSG BL . 
CLR ibseecte 
MOV #2,£.B2 -MSG ID POR SE XPECTED MSG B2 
MOV #3°£.83 *MSG ID FOR EXPECTED MSG B3 


SEG O116 





eee eee 
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OZREHC.P11 06-OCT-76 18:0 T31 TEST RECALIBRATE CMD & READ HEADERS 


q44 
1 044720 ISR PC, CHKMSG sCHECK MSGS A0,80,A1,81 
au E Bedo83 WORD T.Ae!T.B2!0 € SPectFIeD HERE 


947 104 ERROR G if OR AFTER RECAL CMD 
ee ao see 
5950 


1 ERROR 22 :MSG Al ERROR 
225 026226 104276 ERROR 276 MSG 8 ERROR 
001362 TST DIF F MSG A2=0 
en ae sty ee 
5954 026236 104047 ERROR 47 G A2 NOT CLEARED AFTER RECAL CMD 
Sto 001364 64$: TST CYLADD tee IF MSG Be=0 
Se6 1401 BEQ 65S ‘BR IF YES 
5957 Debeus 104050 ERROR 50 :MSG B2 NOT CLEARED AFTER RECAL CMD 
zeeg 6S$: 
5960 026250 012765 100000 oDD0000 MOV #CCLR,RKCS1(RS) 
026256 013765 O0l222 000010 MOV SUNIT. RKCSe( RS) DRIVES 
5962 026264 012765 900005 o00000 MOV #CLEAR, RKCSI(RS)’ ;DRIVE CLEAR CMD 
363 Gebe7e O1373¢ 1414 003372 MOV T10,T reHp I 
S64 7 176 ISR pC ERBY ;FIND RDY 
S965 026304 10415) ERROR 15] ‘NO RDY AFTER DRIVE CLEAR CMD 
026306 004737 o444ED ISR PC. TSTATN TEST FOR ATTN 
5967 Oc63i2 O00401 BR b6$ 
5968 026314 104154 ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
P63 026316 66S: 
5971 026316 012737 O10340 oO34e4 MOV #<0!D. SPIN!D.DRDY!D. VV!D.DRA> ,£.AC sEXPECTED MSG AO 
5972 026324 005037 003426 CLR E.B0 "80 
£973 026230 012737 001720 003430 MOV #<D. SPOK!D. cart#b. DOOR!D.BRHM!D.SSP>,£.Al sEXPECTED Al 
£974 026336 912737 000001 003432 MOV #1,.£.B1 °MSG ID FOR EXPECTED’ MSG Bl 
5975 026344 005037 903434 CLR E.A2 “EXPECTED MSG 
5276 026350 012737 oO00002 002436 MOY #2,£.82 "MSG ID FOR EXPECTED MSG Be 
277 026356 612737 o00003 oo344e MOY #3,£.83 :MSG ID FOR EXPECTED MSG B3 
5979 026364 004737 0O44720 ISR PC, CHKMSG ;CHECK MSGS A0,B0,Al,B1 
5980 026370 o00003 “WORD Te! T.B2!0 *& MSGS SPECIFIED HERE 
5981 026372 104273 ERROR :MSG AO bb ta AFTER DRIVE CLEAR CMO 
S9e2 026374 104265 ERROR ce :MSG BO ERROR 
5963 026376 104274 ERROR 274 ?MSG Al ERROR 
p2es 026400 104266 ERROR 266 ?MSG B1 ERROR 
S986 026402 004737 O46106 4g; ISR PC, SUBCLR 
287 026406 104924 ERROR 24 ;CERR AFTER SCLR 
5383 026410 005037 001176 CLR SESCAPE 
5991 026414 012700 001674 MOV #RHT 
5992 026420 012765 oO000eS op0000 MOV < ROOREADS RKCS1(RS) jREAD HEADER CMD 
6993 O26426 013737 001426 003272 MOV TS0000, 7 TEMP 1 s SETUP TINE 
5994 926434 004737 O44176 ISR C.FRDY 
Eocs O26440 10417 ERROR S SI NO RDY AFTER READ HEADER CMD 
5996 O2e442e 032737 100000 003324 SIT #CERR,HCS1 
£997 026450 OC1405 BEQ &7$ 
Eoce 026452 104174 ERROR 174 ;CERR AFTER READ HEADER CMD 


5999 Oe64S4 104401 OS&E06 TYPE »MSG18 ABORT BALANCE OF TESTS 





a cS 


ae} 
| 
| 


tae 
oo 
€ TA) 


i 


BE ESR 


O26460 000137 


Gia We ERSD 


peagenaage 
60010 SOU £ tutu 


ih 
ne 
 : 
rie 

é 


: 


737 


t 
ui 
8 


i 

4 
oOo Ove 
m= o- 
stat 

un 


: 


SRP RE: 
i 
a 


aimatatate 
: 
2 i 


2 
i 
é 
as 
+ Mer 


ee Se ee ee ee 


NO fake PRET 


043470 


g00024 
d00=4 
500de4 
100000 
O4sS34 
osee0e 


043470 * 


001674 


001674 


000001 


o000e6 


000000 
003372 


003372 


003334 


003424 
003430 
003432 
aie 
00344 

DO343€ 


fre FS te bP ee caPtaeate emo e Béao HenoeRe 


67$: 


68$: 


&$: 


es: 


69$: 





IMP 





B10 























SEG C116 


SEOP ;ABORT DRIVE 
RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAE 


RKDBCRS), (RO)+ ig, M0 WORD 
RKDS(RS),(RO)+ 33°RD WORD 


sOLT,RKCS2(RS) 


PC GSTAT- d 
17 :DLT AFTER READ HEADER aL f 
MSG18 :ABORTING BALANCE OF TESTS j 
$E0P ABORT DRIVE ! 
BHTAB, #1 ;CHECK WORD 0, CYL # ONLY } 
3u0 :CYL 1 HEADERS ON CYL O ‘ 
RUTAE 
202 :READ CYL WORD HEADER ERROR 
PC, SWTST :SEE IF SW 14 OR 8 IS SET 
TSt3e -GO TO NEXT TEST 
'RETURN HERE IF SW 14 IS SET OR 
'SW 8 WITH SWR <7:0> APPLY 

PC, SUBCLR 
24 :CERR AFTER SCLR 
$1, RKDC(RS) :RECONDITION BACK TO CYL 1 
aSEEK RKCSI(RS? : SEEK cn TO RECONDITION DRIVE. 
T10, TEMP! sBEIUP MEOUT 
PC FRDY FIND ROY 
13! 'NO ROY AFTER SEEK CMD. 
TSO00, TEMP! 
PC FatTe FIND A 
13 NO Oren TN TER SEEK CMD 
aCERR, HOS! 
210 ;CERR AFTER SEEK CMD. 
PC, SUBCLR 
24 :CERR AFTER SCLR 
#<0!D. SPIN'D. DRDY!D. VV!D.DRA>.£.AC s EXPECTED MSG AD 

-B0 XPECTED MSG BO 

.SPOK!D. CART! b. Boor! .BRHM!D.SSP>,E.Al sEXPECTED Al 
+ E.Bl 10 FOR EXPECTED MSG B1 
E.Ae i PSBECT ED MSG Ae 
tc, E.B2 ;MSG ID FOR EXPECTED MSG 82 

G ID FOR EXPECTED g 


E83 M5 MSG 83 
ec attaie» E.B2 ;EXPECTED MSG Be 8 ID FOR CYL 1 





aahee 


cto eee ee eee 





Be 


O— b+ p< 9 


rrr 


UNIBUS RKOE DRIVE DIAG 
DIREHC.P11  O6-OCT-? 
| 8056 
605? 26724 904737 
ee 
| O26732 104133 
| «Ebel Besse iBGise 
Foes psros Abate 
= BeSES BE FCE 
S065 de673e 104043 
Poe s5e234 
6068 026760 
| 6065 O2&764 
£070 Oee76& 
| 026772 
026775 
! 
| 


a 


ide SRDS ad Ioek Sadat 


555 


eave 


Mr MMMM MMmMmmao a 
en ed Sd ed Sood Seed Seed Seed Seed Sool Sd 
—OBSBVRREBREB 

fe 

“ 

- 

- 

rw 


[oe eee 


001384 
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152130 


152110 


001174 


001176 
000020 


aoaare 
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T31 TEST RECALIBRATE CMD & READ HEADERS 


ISR PC. CHKMSG sCHECK MSGS AC,B0,A1 Ft 
-WORD «TA! T. B20 -& MSGS SPECTFIED HERE 
ERROR 133 :MSG AO ERROR AFTER SEEK CMD 
ERROR 134 :MSG BO ERROR 
ERROR 135 :MSG Al ERROR 
ERROR 136 “MSG Bl ERROR 
CMP CYLADD, 81 
BEG 3¢ 
ra ERROR 43 sCYL ADDR IN RKMR2 NOT=RKDC 
CLR SESCAPE 
TST LPFLG 
BEQ 70S 
IMP JSLPERR ;SW 9 WAS SET. 
798: IMP QSLPAOR Si 14 OR B WAS SET 
INC LPFLG 
eit 8SWS, ISWR RR Fo ai 
a wo Bee eRe 
INC LPFLG 
BIT #SW9, aSWR sLOOP ON ERROR? 
BNE ag ites RECONDITION DRIVE 
IMP 4§ RETURN TO MAINLINE 
. sanaeraseasaneateceasussenanesinensnesneensenesesnssneonscesoes 
SES T 32 SINGLE INCREMENT SEEKS TO CYL 410 
st 
# THIS TEST DOES SINGLE INCREMENT SEEKS OUT TO CYL 410 
;* WITH WRITING OR READING SO AS NOT TO INADVERTENTLY 
:# oe Bar AY 


3# 
+ SELFLLELESESELSLSLAESLSLERESLSLEL ALFALFA LLL AFLAAALFELALLTRELELEE 
+8132: SCOPE 2 

5400 1 ITERATION 


MOV #1, $TIMES 
MOV aStAck, SP :RESTORE STK PTR 
JSR PC, SUBCLR 

ERROR :CERR AFTER SCLR 


CLR FRCYL sFROM CYL 

MOV #1, TOCYL sTO CYL 

MOV #1; CALDIF sCALCULATED DIFF. 
1§: 

MOV aSTACK,SP 

JSR Teens 


;RESTORE STK PTR 


;CERR AFTER SCLR 


MOV 810%, SESCAPE 
MOY TOCYL,RKDC(RS) ;CYL TO SEEK TO 


MOV SSEEK RKCSI(RS) ;SEEK CMD 
MOV T10, TEMP! ‘SETUP TIMEOUT 








UNIBUS RKOG DRIVE DIAGNC 
DDREMe.PIL Ge-0e7-76 | 
pig peti 
bily $18 gia? 
fe 

Bite RSSiBG BF 

Bll? Derive OlS7a7 

bile 

Pilz Bee 

E12] Oe7306 104203 

fo 

e 

Ei tS dBUERE 
| eis 

Ese 16 023727 

Eis? Os7se4 O0145! 

Eisg De7sse 1os2i2 
bre 

e130 027230 012737 

E131 272% 0137 

E35 porous 04737 
| ETM oe78s0 104132 
| £135 Qe7362 Oa2737 
 ET3e Oe75e5 801451 
| €13? Bevze2 ipd2i0 
| 6138 OB7e4 

E139 
 €t58 oereey 012737 
Etat Qe7eee 35 
| im 057876 O1z737 
| E143 Gezsod guer37 
| lag e752 > 
 «<Elws OB7316 O1e737 
| GME OB73e4 O1e737 
 EI48 927332 904737 
| Eas Oe7a36 
| Eies oS9558 jo4i33 
| BIEL Qe7342 104134 
| Sies pe7a4q {413 
| e785 gSehde pai ze 
| €184 037350 05737 
| BISS e764 001401 
| BIEE 087366 104137 
in sts 
| 6188 027360 
| gie9 

E1E0 027260 12765 
«Eel Oi a7ee 
 «EIEB OB73e4 O1b7Ee 
«ees 015737 
| gles O87410 004737 
«eles «B87419 Omi 
| Flee Gerais gow7a? 
ETE? BB74a2 Boo4d) 


OSTIC 
:09 


001362 


027740 
001422 


001362 


100000 
00 leee 
000005 
001414 
044176 


O44460 


PART | 


003424 


003430 
003432 


pavas 27( 1006) 
T3é 


2s: 


54S: 


ess: 
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SINGLE INCREMENT SEEKS TO CYL a12 


PC FROY 


sFIND + @ 
SEEK CMO 


13 3NO ROY AFTER 
ae PIP!D.SPINID: VWID.ORA>,E.A0 ;EXPECTED AO 


t1.€ 


PC, CHKMSG 
r,Aet Be!0 


2 


CYLDIF, #1 
es 
éle 


812$, SESCAPE 
T2506, TEMP1 


PC ,FATT2 


1 
aCERR,HCS1 
&4$ 


210 


tO Tadd Wi 


6 Bl ERROR 


;CYL DIFF INCORRECT DURING SEEK 
;SETUP TIMEOUT 

;FIND_ATTN 

;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


#<D.0SC!D.SPIN!D. -DROY 0 -VV!D.ORA>,E.AG ;EXPECTED MSG AC 


XPEC 
#<D. SPOK!D. CART!8. DOOR!D. BRHN:D. SSP>,E.A 
8 AE Bi 


ae 
C 
33 


Pp 
7; 
1 
1 
1 
1 
CYLDIF 
€ 

l 


Sec KREG 


#CCLR, RKC 
SUNIT. RKC 
acLéAr Rk 
qe Bi 
a BBY 


fe 
PC. TSTATN 
b6$ 


CHKMSG 
A2!T. Beto 


SICRS 
aati 
KCS1(R 


) 
) 
5S) 


;EXPECTED Al 
;MSG 10 FOR EXPECTED’ naa. Bl 


:MSG ID FOR EXPECTED MSG B2 
MSG : FOR EXPECTED MSG 83 


;CHECK MSGS 90,80,91,81 
GS SPECIFIED HERE 

;MSG AO breok AFTER SEEK CMD 

:MSG BO ERROR 

:M5G Al ERROR 

:MSG 81 ERROR 


;CYL DIFF NOT CLEARED AFTER SEEK CMD 


;DRIVEs 
sDRIVE CLEAR CMD 


iFI ND_RDY 
;NO_ROY AFTER ORIVE CLEAR CMO 
;TEST FOR ATTN 
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003424 


003430 
003432 


003436 
003442 


001352 


000632 


000020 


000000 
003372 


003372 


003334 


he 27( 1006) 
T3e 


6é$: 


3$: 


4$: 


6$: 


&7$: 


SINGL 
ERROR 


E10 


-0CT-76 oa ¢2 
INCREMENT SEEKS 7 


1s4 


PAGE pe 
0 CYL 41 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


8<O!'D.SPIN!D.ORDY!D. wid. DRA ,E.A0 ;EXPECTED MSG AC 
EXPEC TE MSG 80 
aD. SPOK!D.CART!D. DOOR!D. BRHM!D.SSP> ,£.Al sEXPECTED Al 
Bl MS 1 FOR EXPECTED MSG B1 
:E ED MS 
#2,£.82 :MSG ID FOR EXPECTED MSG Be 
#3,£.83 *MSG ID FOR EXPECTED MSG 83 
PC CHESS ;CHECK MSGS A0,80,4 
T,Re!T. Be Be! CLFIED HERE 
: ae AQ ibere° 5.9 E sac CLEAR CMD 
: MSG BY EPRoe 
MSG 1 ERROR 
CYLADD, TOCYL 
? sCYL ADOR IN RKMR2 NOT=RKDC 
TOCYL, #410. QLL evL pone” 
: LAS 
FRCYL DO SNOTHER 
TOCYL 
4§ :BR IF YES 
1$ 
Pc SWTST ; SEE F Su Su 14 08 OR § IS SET 
T5433 -GO 
thet eeURN HERE IF oy 14 dS SET oR 
:SW 8 WITH SWR <?:0) AP 
PC, SUBCLR 
24 sCERR AFTER SCRL 


TOCYL, RKDC(RS) 
#SEEK,RKCSI(RS) 
T10, TEMP] 

PC FROY 

131 

T5000 TENPL 
FC FATT 
#CERR,HCS1 
69 

2i 


;CYL# 


; SEEK 7 TO RECONDT TION DRIVE. 
; SETUP TIMEOUT 


NO ROY AFTER SEEK CMD. 


;FIND_ATTN 
‘NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


UNTBUS RKOG DRIVE DIAGNOSTIC PART 1 MACY1i 27(1006) O6-OCT-76 23:23 PAGE lee SEQ 0122 
06-OCT-76 18:09 T32 


DZREHC. P11 : SINGLE INCREMENT SEEKS TO CYL 410 
| B24 27644 OO4T3Z7 046106 69$: JSR PC, SUBCLR 
$225 27650 104024 ERROR 24 sCERR AFTER SCLR 
| S58 027652 923727 0013S2 oc0000 cH TOCYL, #0 sALL CYL DONE” 
PSse B57eBS eee 001352 C Tal tei ce DO ANOTHER 
be30 027666 000737 BR 67§ 
b232 004737 046106 8S: 58 PC, SUBCLR 
Peas 027674 iD ROR 24 sCERR AFTER SCLR 
b235 O2767&6 005037 001176 CLR SESCAPE 
| 6236 027702 905737 001410 1s LPELG 
e532 BEzz 08 554795 1S1i74 oe oF ERR :SW 9 WAS SET. 
| 6233 027714 000177 151166 70$: IMP aSLPADR :SW 14 OR 8 WAS SET 
Peay 
S242. 
pets 0277 108 
7720 005237 001410 INC LPFLG 
| $245 027724 032777 001000 151206 BIT #SW9, 2SWR sLOOP ON ERROR? 
| §246 027732 001212 BNE &$ s YES RECONDITION DRIVE 
| $247 027734 000137 027230 J 23 ?RETURN TO MAINLINE 
Peas 027740 128: 
«BERD OESPae OS GRIEG asizee BIT = BSS SMR LOOP ON ERROR? 
ees a55ee3 001302 9 BNE + ‘YES, RECONDITION DRIVE 
e253 027754 000137 oz27Ss2 IMP 4§ :RETURN TO MAINLINE 
| sess a¢ SELLSSSSASAALARSLLASRASA SERA LE ARAL ARAL AS RARE SLSSSAARLALELRAELE SE 
| §256 i STE 33 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
P522 1% THIS TEST VERIFIES THAT CYL 410, TRACK 2 CAN BE READ. 
£259 1% THIS AREA CONTAINS BAD SECTOR INFO WHICH IS WRITTEN BY THE 
«6260 :% FACTORY DURING MANF. ALL SECTOR INFO (BSE) WILL BE STORED 
bee: i AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 
| 263 ti SECTORS 0,2,4,6,8 CONTAIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED FOR BAD 
bet 1 # SECTORS 16,12714,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOFTWARE DETECTED 
—) ;* 
«BREE # IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO 
6267 1 IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED, 
b268 # AMSG WILL BE TYPED INDICATING THAT ALL 
£268 1 FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 
| 270 if THIS IS DONE SO AS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITING 
ae i THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
be? i# THIS IS THE FIRST TEST WHERE THE READ DATA CMD IS PERFORMED 
i £276 ee SKEFELLKSRESFRA RESALE AS RELEASE SHELA ARA LFA LAALAERELEASAAARETLREX 
-« 6277/-«027760 ©p00004 +6132: SCOP 
| $278 000001 01174 MOV #1, STIMES :D0 1 ITERATION 


78 027762 012737 2D 
6278 627770 012706 001100 MOV aStACK, SP !RESTORE STK PTR 
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a 
BSSBS BASBBSE BBE 
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~“) 
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atetatatate fa2ifrisinrt! 


0 0+ bs 8 bo he be he 
AWD NOs lofue-O 
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00340e 
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003430 
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003402 
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T33 READ & 


2$: 


ss: 


G10 


06-OCT-76 23:23 


PC, SUBCLR 
24 


FERBGSE Bee "Re 


#1000; TEMPS 


TEMPS | RKDA(RS) 
#410. ,RKDC(RS) 


SAVE BAD SECTOR INFO SE PACK SERIAL 8 


cere on Cte SCLR 


fe: Face SOFTuARE DETECTED TABLE 


SETORE 22 SECTOR HARDWARE BSE INFO 


; TRACK 2, SECTOR 0 


;CYL 410 


:LOAD WORD CT 


es aaa at Timeout 


ee? 


PC. CHKMSG 
ofdio 


$1 

Se 
lle 
113 


at SUBCLR 


TENPY RKBA(RS) 
TEHPS,RKDACRS) ” 


;FIND RDY 
:NO_RDY AFTER READ DATA CMD 
:GET FRESH STATUS 


;CERR AFTER READ DATA CMD 
8<O'D.SPIN!D. DROY10. DvD. DRA .DRA>, 2.E.Ad 

8<D. SPOK!D. carTebe DOOR!D. BREA! D. SSP>.E.Al 
#1,£.81 :MSG ID F 


;EXPECTED MSG AQ 


;EXPECTED Al 
OR EXPECTED MSG 81 

EXPECTED MSG 

:MSG ID FOR EXPECTED MSG B2 

;MSG ID FOR EXPECTED MSG B3 


;CHECK MSGS AC,80,A1,81 
"8 MSGS SPECIFIED HERE 

"MSG AQ ERROR AFTER READ DATA CMD 
:MSG as ERROR 

=MSG Al ERROR 

MSG a1 ERROR 


;CERR AFTER SUBCLR 


;READ ALL S SECTORS? 


;CANT READ SECTORS 0,2,4,6,8 
;CANT READ SECTORS 10,12,14,16,18,20 


;RESTORE TABLE ADDR 
;SETUP TO READ 2 SECTORS FROM LAST 
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ea Bi 


3737 
004737 


001174 


MACY11 27(10068) O68-OCT-7& 23:23 PAGE 124 
T33 READ 8 SAVE BAD SECTOR INFO 8 TYPE PACK SERIAL 8 
3$: NC RR ;SET SE FLAG 
be Feo :3G0 8 NEXT TEST 
S$: TST BSE22H+E : TEST CARTRIDGE 
BEG 9s ;BRANCH IF DATA inp RIDGE 
ERROR 235 sALIGNMENT CARTRIDGE USED 
INC BSERR ;SET BSE ERROR FLAG 
BR 108 
3 INC MP 


MP 
#BSEC2S,TEMPY  ;STORE 22 SECTOR SOFTWARE BSE ADDR 


MOV #1016. TEN? ;TRACK @, SECTOR le 
MOV TEMPS , RKDA(RS) 


IMP 1$ ; REPEAT 
10$: § TST $PASS 
BNE TST34 ::G0 TO NEXT TST IF NOT 1°ST PASS 
TYPE MSG17 :CART SE 
MOV kBSE22H, -(SP) 
JSR PC, $0820 ;CONVERT DBL BINARY WORD TO OCTAL 
ISR PC’ §SUPRS :TYPE SERIAL # 
Type  ,S$CRLF 
*SCRLF 


© SELESLESASSELREKRESEARAREFSLLE RAFFLE RARE LALA FAAARERASZAEHATEL TATE 
 STEST 34 DETECT INNER LIMIT 


THIS TEST VERIFIES THAT THE LAST CYL_IN THE ABOVE 
TEST WAS 410 BY DETECTING INNER LIMIT AS THE ADJACENT CYL. 
IF_THIS TEST FAILS, IT INDICATES THAT HEADS WERE a ON CYL 410 
THAT INFO IS NOT VALID. THE EST 
8 ALL READ-WRITE TESTS ARE oe 
TO AVOID DESTROYING BSE INFO OR AN ALIGNMENT CARTRIDGE 
SINCE THERE IS A SEEKING OR LIMIT DETECTION PROBLEM. 
¢ LELLEE EERE SL LAL AL RAA LALA AL ALAA LALA LALA LAA LAL AL ER RALELELLALALALET 


cen SCOPE 
MOV #1 slimes ;:D0 1 ITERATION 
MOV #stac ‘RESTORE STK PTR 


JSR a, SCL ;SUBSYS CLEAR f. GET STATUS 
ERROR 24 ;CERR AFTER SCLR 


CLR LPFLG 
NC BYPCERR sBYPASS CHECKING FOR ANY CERR IN GSTATL 
NC UNLD USED FOR VALIO HALT 
) ;PARITY & WORD 0 
on og. 

S) :SEEK CMD 

MOY 
JSR PC, FRDY sFIND RDY 


oe oie Oe Ok RC Oe Oe 


ee ee ee ee ee ee ee es ee ee 


@ Ol24 


UNIBUS RKO& DRIVE O x a Hho PART 1 
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104122 


DZREHC.P11 


030516 
C44460 


BBi200 


001720 
000001 


bbesse 


Baus 


044720 


fh seo 


=e 
8 
or £ 


100000 
O0ig2e 
000005 
001414 
044176 


O44460 


003424 


003430 
003432 


003436 
O0344e 


010340 
00 


003362 


MACY11 27(1006) 
T34 


64S: 


Smeg tt 23:23 PAGE 125 


DETECT INNER LIMIT 


lee 
F: TSTATN 


+p PFE BEAM Bs 


+ :SEOK!D. cart. DOOR!D.BRHM!D:SSP>,£.Al 


81,€ 


PC, CHKMSG 
ordi 


#CCLR,RKCS1(RS) 


SUNIT, wrath oh 


#CLEAR, RKCS 
T10, TEMP: 
Pc FRY 


15 
PC. TSTATN 
64$ 
154 


#<O0!D.SPIN!D.DRDY!D. WED. ree ,£.A0 
#<D SPOK!D. cert? DOOR!D. BRHM 


E. 
#2,£.82 


PC, CHKMSG 
T.Ae!T.B2'0 


#410. ,RKDC(RS) 
SEEK RKCS1(RS) 
TEMP 1 

10 RDY 
Pes 
#CCLR,RKCS1(RS) 
PC, GSTAT 


PC’FLIM 
160 


#0.UNLD, HMR2 
1$ 


SEG 0125 





RDY FOR ATTN WITH BAD PARITY 


;NO 

TEST F ; 
:NO_ATTN FROM SEEK WITH 88D PARITY 
ovID. VV!D.DRA>,E.AO ;EXPECTED AO 


sCHECK MSGS A0,80,A1,B1 
i MSGS SPECIFIED HERE 
a0 ERFOR AFTER SEEK WITH BAD PARITY 


iMeG Bl ERROR 


;ORIVEs 
;DRIVE CLEAR CMD 


;F IND ROY 
;NO_RDY gid DRIVE CLEAR CMD 
:TEST FOR ATT 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


;EXPECTED MSG AD 


10. SSP>,E.8 EXPECTED AL. 
rHSG 1D FOR EXPECTED’ MSG BI ; 
SEXPECTED MSG Ae 
!MSG ID FOR EXPECTED MSG B2 ; 
:MSG ID FOR EXPECTED MSG B3 . 


sCHECK MSGS AD,B0,A1,8 
mss SPECIFIED HERE 
MSG a0 Erok AFTER DRIVE CLEAR CMD 


'MeG Al ERROR 
:MSG B1 ERROR 


;CYL 410. 
;SEEK TO CYL 410. 


;FIND ROY 
;NO ROY AFTER SEEK CMD 


;FIND LIMIT DETECT 
;LIMIT DETECT NOT FOUND BEFORE TIMEOUT 





a 


5 Rear 


EEN FESNSPRTSRD at 


neon 


104305 


000137 C31646 


O44460 
001462 
046106 


001414 
047020 


047074 


001414 
0445 12 


001176 


ie Pac tng PART 1 
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001176 15: 
424 


456 
003430 
003432 


003374 
003374 


oo342e4 


003430 
003432 


003436 
003442 


MACYL1 27(1906) 
T34 


es: 


DETEC 


ERROR 
JMP 


J10 


-OCT-7& 23:23 PAGE leé SEG 0126 
INNER LIMIT 
305 ;DRIVE NOT vt roe AFTER LIMIT DETECT 
30% :BYPASS REST OF TEST 


820$, SESCAPE MUST ESCAPE TO CYCLE UP DRIVE & TEST SWF 
4D. DSC. PIP 0, ip NID. VVID.DRA>,E.AO  ;EXPECTED AQ 
#<D.UNLD!D. REV vip SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,£.Al 
8<D.LIMD!D.NMOV!1>,£.81 
BC, CHKNSG es MSGS A0,80,Al 48) 
te) EROR eet INNER LIMIT DETECT 
163 i ae ar ERROR 
164 MSG Bl ERROR 
PC, TSTATN 
1 :NO ATTN AFTER INNER LIMIT DETECT 
BYPCERR ‘ALLOW CHECKING CERR IN GSTATI 
PC, SUBCLR ;SUBSYS CLR 

4 :CERR AFTER SCLR 

10, TEMP2 :SET UP TIMEOUT 
PC FHDHM :FIND HEAD HOME 
16) *HEAD HOME NOT FOUND BEFORE TIMEOUT 
PC, FLOAD ?FIND LOAD HEADS 

4 LOAD HEADS NOT FOUND BEFORE TIMEOUT 
TIO, TEMP2 sSETUP TIMEOUT 
PC,FATTI ‘FIND A 

? :ATTN NOT ‘FOUND BEFORE TIMEOUT 
SESCAPE 
#<D-DSCED. SPIN!D. -PROYED-¥ .WW!D. DRA , ,£.AQ ;EXPECTED MSG AD 
#<D. SPOK!D. CART! 6. NODKIB OORT. SSP>,E£.Al ;EXPECTED Al 
#1.£.B1 “MSG ID FOR EXPECTED MSG B1 

f :EXPECTED MSG Ae 
#2,£.82 :MSG ID FOR EXPECTED MSG B2 
#3°£.83 :MSG ID FOR EXPECTED MSG 3 


a 
mt 


Wu) 
ares 
«rm 


GOGH GHVGGOD BGOGDWOODWOD WOWWWWE Witsoe 
Wa) 


ed ee re ee ee ee ee ee ee ee 


££ EW) 
2RBanN 


B 8 
Eé 
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Bere RR eae setatin 


a SRS 


A 


: 


RR 


we 
£ 
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YE DIAGNOSTIC. PART 1 


004737 


004737 
104324 


013765 
012765 





044720 


26 
001720 
001 


003316 
OS0036 


046106 


001352 
000017 


ess: 


668: 


67$: 


003424 


003430 
003432 


003436 
003442 


10S: 


ooodeo &8$: 


000000 


paras ered ROR) 


JSR 
ERROR 
MOV 
MOV 


-0CT- 7 23:22 PAGE 127 SEG 0127 

R LIMI 
PC.CHKMSG » :CHECK MSGS AD,80,81,81 

[Rett -% MSGS SPECIFIED HERE 

sMSG AO ERROR AT END OF HEAD LOADING 

eG ;NSG ERROS 
6S :MSG Al ERROR 
£6 :MSG 81 ERROR 
CYLDIF i SEE IF G A2=0 
ESS 3BR I 
175 °MSG A2 NOT CLEARED AT END OF HEAD LOADING 
CYLADD :SEE IF MSG Be=0 
665 :BR IF YES 
176 *MSG B2 NOT CLEARED AT END OF HEAD LOADING 
#CCLR, RKCS1(R5) 
SUNIT. RKCSE(RS) :DRIVES 
#CLEAR, RKCS1(RS) ;DRIVE CLEAR CMD 
T10,T feME 
PC ERBY ;FIND RDY 
15] ?NO RDY BFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR A 
154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<O!D.SPIN!D.DRDY!D.VV!D. he ,£.A0 ;EXPECTED MSG AO 
#20. SPOK!D. CART!8. D00R!D. BRHM!D. SSP> ,E.Al sEXPECTED Al 
#1,£.81 ;MSG ID FOR EXPECTED MSG B1 
E.Ao “EXPECTED MSG Ae 
#2,£.B2 :MSG ID FOR EXPECTED MSG Be 
#3,£.83 *MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ; CHECK MSGS ag BO,A 

T.Ae!T.B2t0 iets ERE 
359 :MSG AD Eran AFTER ORINE OEEAR CMD 
265 *MSG BO ERROR 
274 :MSG Al ERROR 
266 :MSG Bl ERROR 
UNLD ;USED FOR VALID HALT 
PC. SWTST SEE IF SW 14 OR 8 IS SET 
TST3s ::GO TO NEXT TEST 

?RETURN HERE IF SW 14 IS SET OR 


PC, SUBCLR 
24 


TOCYL ,RKDC (RS) 
#SEEK,RKCS1(RS) 


E 
;SW 8 WITH SWR <7:0) APPLY 


;CERR AFTER SCRL 
;CYL# 
;SEEK CMD TO RECONDITION DRIVE. 


re 


UNIBUS RKOG ORIVE 2 as te PART 1 
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MACY11 27(1006) 
T34 DETECT INNER LIMIT 


O6-OCT-76 23:23 PAGE 128 


E560 gis 913737 Aue 003372 MOV 10, TENPL : SETUP TIMEOUT 
cee ize obs 134 iS! rN AFTER SEEK CMD. 
6564 031460 013737 001424 003372 MOV TSO00, TEMP1 
6565 O31466 004737 O44606 ISR PC FatT2 sFIND ATTN 
6566 021472 1041 oR 1 °NO ATTN AFTER SEEK CMD 
&567 O31474 032737 190000 003334 BIT ACER, HCS1 
cee i 10421 FES oR 21 ;CERR AFTER SEEK CMD. 
6571 031 004737 O46106 703: JSR PC, SUBCLR 
BS re 031512 104024 ERROR 24 ;CERR AFTER SCLR 
peed 031519 923727 001352 000632 CHP TOCYL, #410. ALL cv pone? 
EES 031524 ppes3 0013S2 INC OCYL BR JF AYE DO BNOTHER 
B57? 031530 000737 BR 68S 
1 ? £9: R Pc, SUBCLR 
ceed 1 TBd24 vain ZBEOR 24 ;CERR AFTER SCLR 
1540 7 Oo R CAPE 
Fees Saieus ppese> Bott ff &BERTE 
& patees ated 147332 ae aie RR SW 9 WAS SET 
bee 15 Bobi ee 1 4o3E6 71S: IMP ae ERE :SW 14 OR 3 WAS SET 
b588 031562 208: 
6590 031562 004737 O46105 JSR Pc, SUBCLR 
bea! O3i566 104024 ERROR 24 ;CERR AFTER SCLR 
6593 031570 O12765 000011 op0000 MOY #SRTSPL RKCSICRS) START SPINDLE CMD 
6594 031576 013737 601414 003372 MOV T10, TEMPL T TIMEOU 
6595 031604 004737 044176 JSR pe FRDY ROY 
B96 031610 104121 ERROR lel  RDY NOT FOUND AFTER ST SPIN CMD. 
6598 O31612 013737 001416 003374 MOV T109 TEMP2 ;SETUP TIMEOUT 
6599 G31620 737 O44Sie JSR VFATTL :FIND ATTN 
6600 031624 104067 ERROR *NO ATTN AFTER ST SPIN CMD. 
6601 031626 005237 001410 INC OFLC 
Ge alee Giz, Smo wom TERS OOO BE oa 
aa Rated cay 031146 IMP 2s RETURN TO MAINLINE 
6605 O31646 30S: 
bEDE 
£607 O31646 
£60 ; RANE LE eA EL A RE SETAE EAPO 
pe j ATES EST 35 FORMAT PACK 
6611 te THIS TEST FORMATS THE ENTIRE PACK IN 22 SECTOR FORMAT BY 
6612 # DOING I CYL INCREMENTAL SEEKS 
£613 1% FROM O TO 410 WITH WRITE HEADER CMDS (ALL TRACKS). 
e614 1 HEADERS WILL BE READ IN THE NEXT TEST 
~ 7* 


paTBU Boe OR Me? ae’ a PART 1 Weevil 22 27( £4008) gor 10. PAGE 129 


ois jitheteeneenneesnneenseesnesnessnecnacenatenaeesntesetesstsseties 
Pete seat Seeet 00000: 001174 ase #1,$TIMES 3;D0 1 ITERATION 
es 
6621 O31656 012706 001190 MOV BSTACK, SP ;RESTORE STK PTR 
BEE 31662 005727 O0134e TST MODTST’ :SEE IF MODULE TESTING 
1666 001402 SEQ 225 :BR IF 
cess 031670 104401 oseE72 TYPE  ,MSG20 ‘RUNNING MODIFIED VERSION OF TEST 
031674 005737 O01460 22: TST LIMERROR ;CHECK IF FOUND LIMIT DETECT ERROR 
6627 031700 001403 BEQ i$ 
bee 1 194170 ERROR 170 sFORMAT TEST BYPASSED, LIMIT DETECT ERROR 
1 137 033750 IMP 13$ 
6630 031719 005737 O01456 1S: TST BSERR ;CHECK IF FOUND BSE INFO OK 
&& 1714 0014 BEQ zg 
6 1716 1041 » ERROR 177 sFORMAT TEST BYPASSED-BSE ERROR 
6633 021720 000137 033750 IMP 13$ 
Eps 031724 004737 O46106 2S: ISR PC, SUBCLR 
6636 031730 104024 ERROR 24 :CERR AFTER SCLR 
aa 031732 104401 oOS6407 TYPE  ,MSGl2 sFORMATTING PACK, PLEASE WAIT 
cE 40 031736 005037 0012352 CLR TOCYL 
6642 031742 013737 0013252 001366 MOY TOCYL,CALADD §;SETUP 
BE43 p21 750 012737 000000 001430 MOV #0, HEAD TO FILL 
6644 031756 012737 OO0000 OO1436 MOV #0; FORMAT : HEADER 
beYS 031764 004737 947142 JSR PC; FHDTAB : TABLE 
£647 
1 1276 470 9s: MOV #HDTAB,RKBA(RS) ; THIS SECTION 
Peas Bt bie7es 177676 ania MOV #-66.,RKWC(RS) ;0F ZoBE 
6650 032004 001430 SWAB HEAD !IS TO RESTORE STANDARD FORMAT 
6651 032010 eae 001430 oo00c6 MOV HEAD,RKDACRS) TO CYL O 
bese 032016 000337 901430 SWAB HEAD ‘HEAD 0,1 8 2 
6E54 012765 000027 op0000 MOV #<WRHEAD> . RKCS1(RS) :WRITE HEADER CMD 
bEE5 p36 aac 013737 001426 003372 MOV TSOO00, TEMP1  ;SETUP TIMEOUT 
6656 032036 004737 044176 ISR PC FROY :FIND RDY 
7 O32042 104200 ERROR 200 *NO RDY AFTER WRITE HEADER CMD 
032044 004737 o4sS34 ISR PC, GSTAT GET FRESH STATUS 
6659 932050 032737 100000 003334 BIT #CERR,HCS1 
032056 O01405 BEQ 
6661 032060 104201 ERROR 201 :CERR AFTER WRITE ER CMD 
6662 O32062 104401 OS&EDE TYPE MSG18 :ABORTING BALANCE OF TESTS 
6663 032066 000137 043470 IMP $E0P !ABORT DRIVE 
bEEY 032072 4S: 
6666 032072 005237 001430 INC HEAD 
6667 032976 023727 001430 oo0003 CMP HEAD, #3 
bbb 022104 001403 BEG 115 :BR IF ALL HEADS DONE 
£670 106 004737 oO4714e2 ISR PC ,FHDTAB 
£671 ete 000726 BR 9g 
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012737 
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001362 
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OO1366 11S: 


001360 
001352 
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001176 i: 


000909 
003372 


003424 


ss 


000001 


4§: 
001176 


001176 20$: 
003372 el: 


MACY1L1 27( 1006) 
T3S FORMAT P 


O6-OCT-7& 23:23 PAGE 130 
ACK 


ee ; SETUP 
HE :FOR 
FORMAT :FHOTAB ROUTINE 
BhaChLole i pea 
#1, TOCYL ‘ERROR REPORT 
:START FORMATTING CYL 1 TO 410 HERE 
#STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
MODTST ;SEE IF MODULE TESTING 
18S ;BR IF NO 
#16, SESCAPE 
19$ 
#10$, SESCAPE 
AAtAOBS RKDC(RS) ;CYL # 
HEAD, RKDA(RS)  ;HEAD & 
HEAD 


HSEEK RKCSI(RS) ;SEEK CMD 
HOT TEMP :SETUP TIMEOUT 

C. PRDY :FIND ROY 
5 *NO RDY AFTER SEEK CMD 
#<D.PIP!D.SPIN!D.VV!D.DRA>,£.AQ ;EXPECTED AO 


E.B0 
ee ee ne 


PC, CHKMSG : CHECK MSGS A0,B0,A1.B1 

I, perl. Be!0 -& M Fl PECTFIED HERE 
:MSG AO ERRO ING SEEK CMD 

oo :MSG BO ERROR 

205 :MSG Al ERROR 

206 ?MSG Bl ERROR 

CYLDIF, #1 

212 sCYL DIFF INCORRECT DURING SEEK 

MODTST ;SEE IF MODULE TESTING 

20$ :BR IF NO 

817%, SESCAPE 

21$ 

#12, SESCAPE 

#2500.,TEMP1 § ;SETUP TIMEOUT 


SEG 0130 


ee, 


DZRBHC . P 06-0 


6728 032370 004737 
e729 032374 104132 
€730 O3e376 O32? 3: 
"31 0344 } 


&73 
§73e O3e406 104210 
pis 032410 
6735 032410 012737 
$7 022416 
67 Qse4ee 012737 
67 032430 0127 
6739 O03e%36 005037 
6740 Oset4e 012737 
xa 032450 Ol2737 
ra 
6743 O324S6 004737 
744 O3e%6e 000003. 
6745 O322464 104133 
746 032466 104134 
8747 O32470 104135 
6748 O32472 104136 
6749S 032474 005737 
6750 032500 001401 
8751 O3e502e 104137 
£752 
£753 032504 
P-E 032504 piE7be 
6756 OQ3eSle Qi? 
£757 O3252e0 012765 
coee pasesa Sara: 
Foes paseag ouie: 
6761 O32542 004737 
6762 022546 000401 
6763 032550 104154 
s764 O32e5S2 
s7E5 
: O3eSS2 012737 
6767 032560 005037 
7 032564 012737 
oe ae 
6771 O3e604 012737 
e776 Osebiz 012737 
£774 022620 004737 
£775 O2e6e4 00000 
£ Osebe6 10427 
Ose630 104e6 
6778 OQ2csze 1042 


nee ee ee - 


044606 
100000 


| PNIBLS ROS ORIVE OTAGNOSTIC. FART f 
| 
| 
! 
| 
| 
} 
! 
| 


001364 


003334 


003424 


903430 
003432 


003436 
003442 


003372 


003424 
003430 
003432 


003436 
003442 


001366 


ee me 
MACYLL 2701006) 06-OCT-76 23:23 PAGE 121 SEG 013: 
735 FORMAT PACK 
JSR PC FATT :FIND @ 
ERROR 13 = NO ON METER SEEK CMO 
BIT SCERR,HCS! 
SEQ 65$ 
a ERROR 210 :CERR AFTER SEEK CMD 
MOV 8<0.DSC!D. SPINID. DROY #0. VV!D.DRA?,£.A0 ;EXPECTED MSG AC 
CLR E.80 “EXPECTED MSG 80 
MOV 8<5.SPOK!D. cART!O. DOOR!'D.BRHM!D.SSP> ,£.Al sEXPECTED Al 
MOV #1.£.B1 MSG 10 FOR EXPECTED’ fe 81 
CLR E.Ae ¢ TED MSG Ae 
MOV 82,£.B2 ASG ID FOR EXPECTED MSG 82 
MOV 83.£.83 *MSG ID FOR EXPECTED MSG 83 
ISR PC, CHKMSS : CHECK NSGS £2 B0,A 
‘ T.Ae!T.B2!0 Spec Pte HERE 
ERROR 133 :MSG AD ib ane° arSEh SEEK CMD 
ERROR 134 :MSG BO ERROR 
ERROR 135 :M5G Al ERROR 
ERROR 136 :MSG B1 ERROR 
TST CYLDIF 
BEQ S$ : 
ERROR 137 sCYL DIFF NOT CLEARED AFTER SEEK CMO 
&é$: 
MOV ace R, BKCS (RS) 
MOV ONTT BR (Re DRIVES 
MOV SNR R RKee] RS) sDRIVE CLEAR CMO 
MOV 710, TEMP 
ISR C FROY ;FIND RDY 
E 15} 'NO ROY AFTER DRIVE CLEAR CMD 
isk pg, TSTATN TEST FOR ATTN 
es ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMO 
MOV #<0!D.SPIN!D. DROY!D. wid. DRA>,£.AD sEXPECTED MSG AQ 
CLR -EXPECT "80 
MOV aD SPOK!D. CART!5. DOOR!D. BRHM!D.SSP>,E. ale sEXPECTED Al 
Moy #1.£.81 :MSG ID FOR EXPECTED MSG 8 
CLR ERE :EXPECTED MSG 
MOV 82,£.82 “MSG ID FOR EXPECTED MSG B2 
MOY #3,£.83 :MSG ID FOR EXPECTED MSG 83 
ISR PC. CHKMSG : CHECK NSCS Ao, 80,8 
WORD 1 Retr. B2!0 scé estes feo HERE 
ERROR :MSG AO BraoR E CLEAR CMD 
ERR ce :MSG BO ERROR 
RROR 274 :MSG AL ERROR 
ERROR 66 :MSG B1 ERROR 
CMP CYLADD, CALADD 
BEQ +3 :: 
ERROR 232 sCYL ADDR IN RKMR2 NOT=RKDC 








UNIBUS RKO& DRIVE DI gNOSTIC. PART | MACY LL 2? (1008) 06-OCT-76 23:23 PAGE 132 : SEG 0122 
| DIREHC.PLL == (OG-0CT-76 18:0 73S FORMAT PACK : 
| 8 ss 

cre pee ,O4s15 : SCOP] . 
bre. 12706 001100 BMOV aSTACK, SP sRESTORE STK PTR 
i 
| §783 032656 OO4737 O46108 J PC, SUBCLR 
p23 032662 104024 ERROR 24 -CERR AFTER SCLR 
&7S2 032664 005037 001176 CLR SESCAPE 
6783 032670 O04737 O47142 SR PC FHDTAR sFILL HEADER TABLE 
Pode pacers Mees polis 000006 rh Eas. RKDA(RS)  ;SET TRACK 8 
| 6796 eee B43285 991430 SWAB «HEAD 
| ze o2e712 bieres 001470 oo0004 MOV BHOTAB, RKBACRS) ‘ieee TABLE 
i i é 0000! 
| 67 esse Bisse Acree SeohS Moy Bares RBC RS) fev 
6801 
734 012765 000027 900000 MOV 8<WRHEAD> . RKCS1(RS) “WRITE HEADER CMD 
| £803 bere 313737 034 003372 MOV Tsog6 EMP! SETUP up TIMEOUT 
£804 ? 1 ISR FRDY IND RDY 
«REP Reesee ASU599 cB fot gta aN) ROY GETER WALTE HEADER CH 
535278 eos risa 003224 ae Aeese desi : 
032770 901405 BEQ 68S 
| §80S O320772 104201 ERROR 201 ;CERR AFTER WRITE HEADER CMD 
6610 032774 104401 oOSeEDE E mSG18 SABORTING BALANCE OF TESTS 
6211 033000 000137 043470 IMP $eoP :ABORT DRIVE 
pele 033004 68: 
£614 033004 012737 010340 oo3424 MOV 8<O!D. SPIN!D. DRDY!D. VV!D. DRA» ,E..A0 sEXPECTED MSG AO 
S815 033012 605037 0034 CLR E.80 CTED MSG’ 
E+6 oz2ci6 012737 ? 3430 MOV 8<D. SPOK!D. cartib. DOOR!D. BRHM!D. SSP>,E.8 sEXPECTED Al 
l 012737 i 32 MOV #1.£.B1 G ID FOR EXPECTED’ ASG 21 
6818 033032 005037 903434 CLR E.Ae ; EXPEC TED MSG Ae 
6819 033036 012737 000002 002426 MOV #2,£.82 :MSG ID FOR EXPECTED MSG B2 
Eco 012737 800003 do344e MOV 83,£.82 :MSG ID FOR EXPECTED MSG 83 
£822 033052 004737 O44720 ISR PC, CHKMSG ;CHECK MSGS a BO,A1,8 
6823 032056 o00003 “WORD 7. A2'T.B2!0 “8 M eed SPE CTE TED 
6824 033060 104277 ERROR 277 :MSG AC bb ree AFTER WRIT P TESEER CMD 
6825 032062 104267 ERROR 267 ?MSG BO ERROR 
S826 023064 194300 ERROR 300 !MSG AL ERROR 
£827 104270 ERROR 270 MSG i ERROR 
Fess . 
6230 033070 005737 001342 TST MODTST :SEE IF MODULE TESTING 
6821 032074 9O014 BEQ 23$ : 
Ese 2076 000137 032450 IMP 14§ ‘ELSE RESTORE HEADERS ONLY 
6224 032102 005237 001430 238: INC HEAD 
Esse Oeaiis Deiore Cee Co00de se 
6627 032116 023727 OD1266 000622 CMP CALADD, 8410. :HEAD 2, SEE IF CYL 410 
g632 022124 o0io0e BNE &$ :DO NOT WRITE ON CTL io HEAD 2 


6 
6633 O33le6 000137 033360 JMP 7$ 
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UNIBUS RKOG DRIVE DIAGNOSTIC PART | MACY11 27(1006) O6-OCT-7& 23:23 PAGE 133 SES 0133 
18:09 T3S FORMAT PACK ; 





DZREMC.P11  O&-OCT-76 
£840 
ae 933138 32372 001430 000003 6é$: cre HEAD, 93 sBLL HEADS DONE? 
Pets 3a3ty eats 001430 CL Sean ALL HEADS ON CYL DONE 
S844 033146 005237 001366 INC CALADD $00.70 TO NEXT CYL 
6845 033152 905237 001350 INC FRCYL OR ERROR REPORT 
base 033156 005237 0013S2 INC TOCYL !FOR ERROR REPORT 
6847 0233162 TST HPE ND :SEE IF HALT PENDING 
£848 932166 O01 BNE 24§ ‘BR IF Y 
bese 033170 900137 o321S2 IME 3$ ‘ELSE KEEP FORMATTING 
6851 033174 005037 003322 248: CLR HPEND sCLEAR FOR FUTURE FORMATTING 
6852 033200 005037 003320 CLR BADHOR "HEADERS NOW OK 
| bess 033204 000137 os0id6 Ime STOP :G0 8 HALT THE CPU 
| £855 032210 005037 001366 8s: CLR CALADD 
6855 033214 005037 001260 CLR FRCYL 
Eee 033220 004737 046106 JSR - PC, SUBCLR 
£855 104024 ERROR 24 ;CERR AFTER SCRL 
e861 033226 013765 001352 oO00020 69%: MOV TOCYL,RKDC(RS) ;CYLe 
| 6863 0332354 012765 000917 9D0000 MOV aSEEK RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 
 §RES pezese 013737 poli 003372 MOV T10, TEMP! ; SETUP TIMEOU 
| $865 004737 0441 ISR PC FRDY ROY 
| BEE 032254 104131 ERROR 131 NO RDY AFTER SEEK cMD. 
| §868 033256 012737 001424 003372 MOV T5000, TEMP 1 
| §869 032264 0047327 O44e0¢ JSR pC Fatte ;FIND A 
| 6870 033270 104132 ERROR 132 :NO ortN TWETER SEEK CMD 
| 8871 033272 032737 100000 003334 IT sCERR,HCS! 
. §872 932300 001401 BEQ 713 
| $873 033302 104210 ERROR 210 :CERR AFTER SEEK CMD. 
| §875 033304 004737 O4E1DE 718: JSR PC, SUBCLR 
6876 033210 104024 ERROR 24 :CERR AFTER SCLR 
| FESe 033312 023727 001352 coDo00 CMP TOCYL, #0 sALL CYL DONE? 
| 8878 033320 001463 BEG 70$ :BR IF YES 
| §880 033322 005337 001352 DEC TOCYL ‘ELSE DO ANOTHER 
| $881 033326 000737 BR 69S 
| §883 033330 0904737 O46106 70$: JSR PC, SUBCLR 
 €884 033334 104024 ERROR 24 :CERR AFTER SCLR 
«BRE «033336 005037 001176 CLR SESCAPE 
| 6887 033342 005737 001/410 TST LPFLG 
f668 023346 9014 BEQ 725 
6889 033350 900177 145524 IMP aSLPERR :SW 9 WAS SET. 
| bg30 032354 000177 14&S2¢ 723: IMP aSLPADR -SW 14 OR 8 WAS SET 
ee 
6693 022360 75 


| £664 033360 04737 oS0036 * -JsR_—Ss«éPC SUITS /SEE IF SW 14 OR 9 IS SET 
 «-€89 032364 000571 BR TS3¢ :;G0 TO NEXT TEST 
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MACYL1 e7 (1008) O6-OCT-76 23:23 PAGE 134 
T3S FORMAT PACK 


les: 


148: 


15S: 


74$: 


RETURN HERE IF SW 14 IS ser OF 


:SW 8 WITH SWR (7:0) APPLY 
SESCAPE 
peu 
3$LPERR :Si 9 WAS SET. 
aSLPADR :SW 14 OR & WAS SET 
LPFLG 
sSW9, ISWR ;LOOP ON ERROR? 
23 ‘YES, RECONDITION DRIVE 
4§ ‘RETURN TO MAINLINE 
LPFLG 
#SWS, ISWR ;LOOP ON ERROR? 
93 YES, RECONDITION DRIVE 
S$ RET URN TO MAINLINE 
AD 
HEAD, #3 :SEE IF ALL HEADS DONE 
15$ :BR IF YES TO GO BACK TO CYL O 
cs ‘ELSE REPEAT FOR NEXT HEAD 
RKDA(RS) ;SEEK TO CYL O 8 READ HEADERS 
TOCYL :TO RECONDITION DRIVE 
#SEEK RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 
TiO, TEMP :SETUP TIMEOU 
PC FRDY if IN RDY 
131 tNO ROY AFTER SEEK CMD. 
TS000, TEMP! 
PC. FatTe ;FIND ATTN 
13 :NO ATTN AFTER SEEK CMD 
aCERR, HCS1 
210 ;CERR AFTER SEEK CMD. 
PC, SUBCLR 
24 :CERR AFTER SCLR 


T ROHEADS RKCS1(RS) “READ HEADER CMD 
ie, TEMP! s SETUP TIMEOUT 


oY RD 
:NO RDY AFTER READ HEADER CMD 


BCERR,HCSL 
174 ;CERR AFTER READ HEADER CMD 
MSG18 5 ABORT BALANCE OF TESTS 
$e0P :ABORT DRIVE 


2 
B 


a ed a ad AT eal 4 


3 
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RKO ORIVE DIAGNOSTIC. PART 1 MACVI 27(1008), O6-OCT-76 23:29 PAGE 135 s£6 0 
iene Sasa: T2e “FORMAT PACK Be Sie 


Ss eR RR 


4, §r Wee FROM SILO TO RHTAB 


o1g520 900024 MOV RKDE CRE) (RO)+ iS +Rp WORD 
03364 100000 900010 BIT s0LT, RKCS2(RS) 
Bases | beiag BED 
023652 004737 o4s534 ISR be GSTAT 
Bz3656 104173 ERROR 73 T AFTER READ HEADER CMD 
3660 a TYPE G18 REORTING 1 BaLANCE OF TEST 
033664 l 3470 IMP SE0F 
033670 778: 
933670 93737 001674 001352 CMP RHTAB, TOCYL 3 CHECK WORD 0 (CYL#) ONLY 
76 001401 BEQ 75$ 
033700 104310 ERROR 310 *READ. CYL WORD HEADER ERROR 
033702 753: 
033702 904737 o50036 JSR PC, SWTST ;SEE IF SW 14 OR 8 IS SET 
033706 900420 BR TSt36 ::GO TO NEXT TEST 
RE TY HERE IF 14 IS SET OR 
WITH (7:0) APPLY 
033710 168: 
033710 005237 o01410 INC LPFLG 
033714 032777 001000 14S216 BIT #SWS, ISWR ;LOOP ON ERROR? 
033722 O0i262 BNE 15$ YES, RECONDITION DRIVE 
o227e4 000137 032336 a IMP 4§ RETURN TO MAINLINE 
033730 005237 001410 "INC LPFLG 
032734 032777 OO1000 145176 BIT #SW9, ISWR ;LOOP ON ERROR? 
033742 O0lese BNE 15$ YES RECONDITION DRIVE ie 
032744 000137 o226s0 IMP $ ?RETURN TO MAINLINE : 
033750 13$: 
SEEKERS SRA SSSA SARA SALSA RESALE LAA ALA SRALAALHAAAERE LALLA LA LAAAES 
Test 3% DECREMENT FROM CYL 410 TO O & READ HEADERS 
i THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY 
it SINGLE CYL INCREMENTAL SEEKS. 
 FEELKEKERELELSEL KE RSSAE LASS A EAE LALA SAAALHRE RARER AAAEAARLLATRETEE 
baapeo ee 900001 001174 t8r36: rl #1. STIMES -D0 1 ITERATION 
033760 012706 901100 MOY aStAck, SP RESTO STK PTR 
033764 104401 057121 TYPE G22 ;FORMATTING FINISHED 
022770 00573), 001342 qs aerst SEE F foOULe TESTING 
033776 104401 057041 TYPE MSG21 BYP TESTS 36,40,41 
034002 37 035044 MP 


000 J 3$ 
034006 Q1e737 000632 001350 SS: MOV #410. ,FRCYL ;FROM CYL 








Gll 


UNTBUS RKO& DRIVE NOSTIC PART | Macy 27 06) O6-OCT-7& 23:23 PAGE 136 ' SEG 
SSREH? Bt See Talks 136 ABPMENT PROM CYL 410° TO 0 8 READ HEADERS | ; 
7008 O34014 012737 000631 001352 MOV #409. , TOCYL :TO CYL 
$303 o24022 i$: 
7011 Oa40s2 104415 SCOP! 
sole 034024 012706 001100 MOV sSTACK, SP sRESTORE STK PTR 
Pd 
7014 004737 046106 JSR BC, SUBCLR 
718 Baaesy | Souos4 ERROR 24 SCERR AFTER SCLR 
7017 O34036 012737 035004 001176 MOV 8108, SESCAPE 
018 034044 013765 0013S2 900020 MOV TOCYL,RKDC(RS) ;CYL # 
1 17 OO MOV eSEEK PPSLiRs) ;SEEK CMD 
sas? Bedbes BEc8S gpodte 59868 MOV rib, tt tSETUP TIMEOUT 
7022 O3406& 004737 O44i76 JSR 8, tees sFIND ROY 
7023 034072 10413) ERROR I "NO RDY AFTER SEEK CMD 
7024 034074 612737 030140 oD34e4 MOV #<D.PIP!D.SPIN!D-VV!D.DRA>,£.A0 ;EXPECTED AO 
| 7025 1 003426 CLR E.80 
ooeb 1 12737 005720 003430 MOV 8D. REV!D. SPOK!D. CART!D.DOOR!D.BRHM!D. SSP» ,£..Al 
114 012737 900001 003432 MOV #1,£.81 
7029 034122 004737 O44720 ISR PC, CHKMSG :CHECK MSGS Wf 80,81,81 
1 . WORD The! T.B2!0 -& MSGS SBE e tFIED HERE 
| ope Bait rogees ERROR :MSG AOD ig tS DURING SEEK CMD 
7032 934132 104204 ERROR oO ;MSG BOD ERROR 
| 7033 034134 104205 ERROR 205 :M5G Al ERROR 
734 034136 104206 ERROR 206 :MSG Bl ERROR 
| 7036 034140 022727 001262 900001 CMP CYLDIF, #1 
| 7037 O34146 O01401 BEO 2g 
_ 7038 O34is0 id42i2 ERROR 212 CYL DIFF INCORRECT DURING SEEK 
oos3 024152 012737 035024 OO1I7E 28: MOV #12$, SESCAPE 
| sou 034160 012737 6004704 603372 MOY #2500.,TEMP1 | ;SETUP TIMEOUT 
| 7043 O34166 004737 O44ED6 ISR PC, FATT2 FIND A 
| 7044 O3417e 104132 ERROR 132 NO oe AFTER SEEK CMD 
7045 034174 032737 100000 003334 BIT #CERR,HCS1 
| 7046 O34202 001401 BEG 64$ 
7047 O34204 104210 ERROR 210 ;CERR AFTER SEEK CMD 
| 7048 034206 64S: 
| 7050 034206 012737 OS0340 o02424 MOV #0. .DSC!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
7051 034214 005027 o03426 CLR MSG BO 
= 7052 O34 012737 001720 003430 MOV #<D. SPOK!D. carts. DOOR!D.BRHM!D.SSP>,£.A sEXPECTED Al 
7053 034 012737 900051 003432 MOV #1.£.B1 MSG ID FOR EXPECTED’ ASG. Bl 
7054 034234 003434 CLR E.A iEXPEC TED MSG Ae 
| 7055 O34240 012737 o00002 003426 MOV #2,£.B2 MSG ID FOR EXPECTED MSG B2 
705 O34246 012737 900003 O03442 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 
«7058 o34254 004737 o44720 ISR PC, CHKMSG sCHECK MSGS A0,B0,A1,8 
7053 034260 O00003 WORD T: pert. B2!0 -& MSGS spect iD HERE 
| 7060 O34262 104133 ERROR :MSG AD ERROR AFTER SEEK CMD 
| 7061 O34264 104134 ERROR 134 :MSG BO ERROR 


| 706e O34e66 104135 ERROR 135 MSG Al ERROR 
| 7063 O34e70 104136 ERROR 136 MSG 81 ERROR 


0136 
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PAGE 137 
DECREMENT FROM CYL 410 TO G & READ HEADERS 


ed 
1 ;CYL OIFF NOT CLEARED AFTER SEEK CMD 


#CCLR,RKCS1(RS) 


SUNIT. RKCSECRS) DRIVES 
ribs He RKC :DRIVE CLEAR CMD 
gh iy RDY 
me NO RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR ATTN 
is4 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<0!D. SPIN!D. DRDY!D. VV!D.DRA> ,£.A0 :EXPECTED MSG AQ 
TED MSG’ BO 
#<D.SPOK!D. cart#6. DOOR'D. BRHM'D.SSP>,£.Al sEXPECTED Al 
#1,£.81 ;MSG 10 FOR EXPECTED'MSG 81 
‘EXPECTED MSG Ae 
#2,£.B2 ?MSG ID FOR EXPECTED MSG B2 
#3/£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ;CHECK MSGS AQ,80,91,81 
I. ferT. B2!0 SPECIFIED HERE 
“MSG AD ERROR AFTER DRIVE CLEAR CMD 
sce :MSG BO ERROR 
274 MSG Al ERROR 
266 :MSG B1 ERROR 
CYLADD, TOCYL 
207 "* CYL ADDR IN RKMR3 NOT = RKDC 
#STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24 ;CERR AFTER SCLR 


SESCAPE 
TOCYL,RKDC(RS) ;CYL & 


#RHTA 
BROHEAD) RKCS1(RS) *READ HEADER CMD 

TSO000, TEMP1 ;SETUP TIMEOUT 

PC PRO :FIND ROY 

17 ?NO RDY AFTER READ HEADER CMD 
HCERR, HCS! 


174 ;CERR AFTER READ HEADER CMD 


SEG 0137 
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70S: 


723: 


06-OCT-76 23:23 


PAGE 138 
DECREMENT FROM CYL 410 TO O & READ HEADERS 


TYPE 
JMP 


MOV 
MOV 


. F TEST 
gfisgue ial a BALANCE OF TESTS 
Roe cee): ys "ST WORD FROM SILO TO RHTAB 
(Re) (RD WORD 
R5)'(RO)+ $3°RD WORD 
#DLT,RKCS2(RS) 
GSTAT 

173 :DLT AFTER READ HEADER CMD 

MSG18 :ABORTING BALANCE OF TESTS 
$e OP :ABORT DRIVE 
RHTAB, TOCYL ‘ei WOR 0 (CYL) ONLY 

1 Bea CYL WORD HEADER ERROR 
FRCYL 
tev 

1 
PC, SWTST ;SEE IF SW 14 0R 8 IS SET 
1S$t37 ::G0 TO NEXT TEST 

:RETURN HERE IF SW 14 IS SET OR 
Sid 8 WITH SWR <7:0) APPLY 

PC, SUBCLR 
24 ;CERR AFTER SCRL 


TOCYL,RKDC(RS) ;CYL# 
#SEEK RKCSI(RS) ;SEEK ej RECONDITION DRIVE. 


T10, TEMP] ;SETUP T 

C FRDY IND RDY 

131 NO RDY AFTER SEEK CMD. 
T5000 TEMP 1 

FatTe :FIND ATTN 

S "NO ATTN AFTER SEEK CMD 
ACERR, HCS1 
210 ;CERR AFTER SEEK CMD. 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


TOCYL, #410. ;ALL CYL DONE? 


SEG 0138 
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SRR RS RRReeisiete ate 
SeMRRESRE SITS 
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MACY11 27(1006) 06-OCT-76 23:23 PAGE 139 
T36 DECREMENT FROM CyYL 410 TO O & READ HEADERS 


BEG 71$ 
INC TOCYL 
BR 70$ 
718: JSR PC, SUBCLR 
ERROR 24 
CLR SESCAPE 
TST LPFLG 
BES 


738 
IMP @SLPERR 
733: JMP aSLPADR 


MOV #1, STIMES 
MOV #STACK, SP 


MOV #0,FRCYL 
MOV #1; TOCYL 


1$: 


;BR IF YES 
;ELSE DO ANOTHER 


;CERR AFTER SCLR 


;SW 9 WAS SET. 
;SW 14 OR 8 WAS SET 


10$: 
aye Tea aSUR ;LOOP ON ERROR? 
Bie £ ; i408 Rec NOITION DRIVE 
IMP ‘RETURN TO MAINLINE 
les: 
INC LPFLG 
BIT #SW9, aSWR ;LOOP ON ERROR? 
8 6S VES RECONDITION DRIVE 
J 3$ ?RETURN TO MAINLINE 
138: 
. eee eee eT EROM CYL 0 10 ALL MATOR CYLE & READ HEADERS 
‘ETE SEEK FROM CYL 0 TO ALL MAJOR CYLS & READ HEADERS 
: 
2 THIS TEST SEEKS FROM CYL O TO ALL THE MAJOR CYLS & READS HEADERS. 
i IT THEN SEEKS CYL O 8 READS HEADERS. 
i MAJOR CYLS ARE: 1 (DECIMAL) = 1 cOCTAL) 
-% 
:* “ = 
;* 8 10 
;* 16 20 
;* 32 40 
te 128 200 
ir 256 400 
bd 
t 


i ee on ee 
137: SCOPE 


; 1 ITERATION 
‘eS TORE STK PTR 


;SETUP FROM CYL 
SETUP TO CYL 


SEG 0139 
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PAGE 140 
SEEK FROM CYL O TO ALL MAJOR eyLg & READ HEADERS 


#STACK, SP sRESTORE STK PTR 
PC, SUBCLR 

Br? sCERR AFTER SCLR 
#10$, SESCAPE 

FRCYL, TEMP3 : SETUP 

TOCYL, TEMP4 CYL DIFF 


TEMP3, TEMP4 3F 
TEMP4' CALDIF ;ERROR PRINTOUT 


TOCYL,RKDC(RS) ;GO TO CYL 8 
SSEEK,RKCSI(RS) ;SEEK CMD - 


T10, TEMP 1 :SETUP TIMEOUT 
C,FRDY ;F IND RDY . 


NO RDY AFTER SEEK CMD « 


13 
ae .PIP!D. SPIN!D! VV!D.ORA>,E.AQ ;EXPECTED AO 
ee ee ee 


PC, CHKMSG : CHECK MSGS A0,B0,A1,B1 
iF perl. B2!0 -% MSGS Spec tFIED HERE 
:MSG AD bb eR” DURING SEEK CMD 
oO :MSG BO ERROR 
205 !MSG Al ERROR 
206 :M5G Bl ERROR 
#12, SESCAPE 
T5006, TEMP1 ;SETUP TIMEOUT 
PC. FATT2 :FIND A 
1 : NO OTN THFTER SEEK CMD 
SCERR, HCS1 
210 ;CERR AFTER SEEK CMD 
#«D.DSC! 1D. SPIN!D. -DROY #0. Me ,E.AO ;EXPECTED MSG AC 
#<D.SPOK!D. cant? b. BOOR?D BRHM!D.SSP>,E.Al EXPECTED Al 
#1.£.B1 6 ID FOR EXPECTED'MSG B1 
Py SPEC TED MSG Ae 
#2,£.B2 ?MSG ID FOR EXPECTED MSG 82 
#3/E.83 *MSG ID FOR EXPECTED MSG B3 
PC, CHKMSG ; CHECK MSGS A0,80.A1,8 
T: pert. B2!0 -& MSGS SPECIFIED HERE 
:MSG AD Eraok AFTER SEEK CMD 
133 *MSG BO ERROR 
135 :MSG Al ERROR 
36 :MSG Bl ERROR 
CYLDIF 
S$ 


137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 


SES 0140 
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7288 


035372 
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piereS 


001364 


350010 


basave 


003424 
003430 
003432 


003436 
003442 


001352 


000020 


000000 
00337¢e 


003334 
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T37 


6S$: 


66S: 


3$: 


68$: 


O6-OCT-76 23:23 PAGE 141 


SEEK FROM CYL 0 TO ALL MAJOR CYLS & READ HEADERS 


acc, RKCS1(RS) 
TA RKCSE( Rs) ;DRIVE® 
iets RKCS1(RS) ;DRIVE CLEAR CMD 
FRO sFIND RDY 

re} RDY AFTER DRIVE CLEAR CMD 

PC, TSTATN if ST FOR ATIN 

154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<0!D. SPIN!D. DRDY!D. VV!D. DRA» ,E.AO sEXPECTED MSG AC 
E.B0 -EXPECTED MSG’ 

#<D.SPOK!D. cart. DOOR!'D.BRHM!D.SSP>,E.Al EXPECTED Al 
#1.£.B1 ;MSG ID FOR EXPECTED MSG B1 

E. EXPECTED MSG Ae 

#2,£.B2 !MSG ID FOR EXPECTED MSG B2 

#3,£.83 !MSG ID FOR EXPECTED MSG 83 

PC, CHKMSG :CHECK MSGS A0,B0,A1,B1 

T. sfetT. B2!0 -& MSGS SPECIFIED ERE 

MSG 80 BraoR AFTER ORI EP or Pee CMD 

ee :MSG BO ERROR 
274 MSG wt ERROR 
266 :MSG B1 ERROR 
CYLADD, TOCYL 

207 CYL ADDR IN RKMR3 NOT=RKDC 

#STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24 :CERR AFTER SCLR 


SESCAPE 
TOCYL,RKDC(RS) ;CYL # 


#RHTAB 
S ROREADS RKCS1(RS) -READ HEADER CMD 
fee TEMP! ar TIMEOUT 


RDY IND RDY 
1? :NO RDY AFTER READ HEADER CMD 
HCERR, HCS1 


174 :CERR AFTER READ HEADER CMD 
MSG18 ; ABORT BALANCE OF TESTS 
$E0P :ABORT URIVE 


RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 


SEG 0141 



























016520 
016520 
032765 
pol ge 
104173 
44 
1 
023737 


001401 
104310 


104415 
012706 


004737 
104024 


b1Sre 
013737 


012765 
013737 


000024 
coode4 


100000 


036750 
001424 


O44E0E 
100000 
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000010 


001352 


pood26 


001354 
000000 
003372 
003424 


3430 
3422 


001176 
003372 


003334 


003424 


MACY11 27(1006) 
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69$: 


4§: 


70S: 





M11 
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RKDB(RS), (RO) + i, 1 we 
RKDB(RS),(RO)+ ;3°RD WORD 


e 
& READ HEADERS 








#OLT,RKCS2(RS) 
£95 
PC GSTAT 

173 ;DLT AFTER READ HEADER CMD 
egg :ROORTING 8 BALANCE OF TESTS 
$EdP 


RHTAB, TOCYL 
67$ 





;CHECK WORD O (CYL#) ONLY 


;BR IF 
310 ;READ CYL WORD HEADER ERROR 


NO RDY AFTER SEEK CMD 


_ #STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24 :CERR AFTER SCLR 
#148 SCAPE 
CYL,RKDC(RS) ;RETURN TO CYL 
FRCYL, CCYL CURRENT CYL FOR TRUERROR ROUTINE 
#SEEK,RKCSI(RS) ;SEEK CMD 
110, TEMP ; SETUP TIMEOUT 


13 
#<D.PIP!D. SPINED. -VV!D.DRA>,E.AO ;EXPECTED AQ 
#<D REY#D. SPOK!D. CART!D.DOOR!D. BRH?D. SSP>,E.Al 


PC ,CHKMSG - ;CHECK MSGS AO 0,50,0181 
203 :MSG AD Efaok as SEEK 
204 :M5G BO ERROR 

205 MSG Al ERROR 

206 :MSG Bl ERROR 

#16$ SESCAPE 

T5000, TE ;SETUP TIMEOUT 

PC. FATT2 ;FIND ATT 

13 :NO ATTN N. 2 SEEK CMD 
ACERR,HCS1 


210 ;CERR AFTER SEEK CMD 


#<D.DSC!D.SPIN!D.DRDY!0.VV!D.DRA>,E.A0 





HERE 
CMD 


;EXPECTED MSG AO 








reste 


Goer Rete 
STOBsESR Bets 


ey ee ee ed eee ee et 


Re 
=k 


a 


023737 
001401 
104243 


104415 
012706 


004737 
104024 


Obi760 


001362 


010340 
003426 


001364 


ae gg He PART 1 
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003430 
003432 


003436 
003442 


oo3424 


a2 


003436 
003442 


001350 


MACY11 27(1006) ox] 
137 SEEK FROM CYL 0 TO ALL MAJOR eye & READ HEADERS 


718: 


72$: 


S§: 


O6-OCT-7& 23:23 PAGE 1 


i EXPECTED 
8:0, spoxso cans 0 Boon. geet. SSP) 


CTED’ Ga Fi 

; ‘Pose ARs 

#2,£.82 MSG ID wre EXPECTED MSG B2 
83,£.83 :MSG ID FOR EXPECTED MSG B3 
PC, CHKMSG ; CHECK Nsgs AO, 80,8 
T.A2!T.B2!0 MSGS SBEeTETED HERE 

133 “MSG AD a AFTER SEEK CMD 
1 :MSG BO ERROR 
135 :MSG AL ERROR 
136 MSG B1 ERROR 
137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR, RKCS1(RS) 
SUNIT: RKeee Re) DRIVES 
in 1(RS) sDRIVE CLEAR CMD 

C OERD ;FIND RDY 

15 °NO RDY AFTER DRIVE CLEAR CMD 
PG, TSTATN TEST FOR ATTN 
154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


;EXPECTED MSC AO 
;EXPECTED Al 


#<0!D. SPIN!D. DRDY!D. VV!D.DRA> ,E£.A0 
E.B0 MSG’ BO 

#<D. SPOK!D. can. DOOR!D.BRHM!D.SSP>,E.A 
#1,£.B1 MSG ID FOR EXPECTED’ ASG Bl 


E.A2 EXP XPECTED MSG 
#2,£.82 :MSG ID FOR EXPECTED MSG B2 
#3,£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ;CHECK MSGS A0,B0,A1,B1 
r. fett. B2!0 -& MSGS SPECIFIED HERE 
:MSG AC ERROR AFTER DRIVE CLEAR CMD 
cee MSG ERROR 
74 :M5G AL ERROR 
266 :MSG Bl ERROR 
CYLADD, FRCVL 
343 sCYL ADDR IN RKMR2 NOT=RKDC 
#STACK, SP ;RESTORE STK PTR 


PC ,SUBCLR 
24 ;CERR AFTER SCLR 


;EXPECTED Al 


SEG 0143 


me a a ae ee OO ee ee et 


% 


an 


oo 


sj 


bite, 


sbdadt 


- 


a7 
3 


; 


a en | ne ae a EN es =~ 


PUR? 
? 
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cT-7@ 18:09 137 SEEK FROM CYL O TO ALL MAJOR CYLS 8 READ HEADERS 
0S037 90117 CLR $ESC 
13765 001360 oo0020 MOV FACYL,RKDC(RS) ;CYL @ 
91 799 001674 MOV BRHTAB. RO 3 
le; po0000 MOV 8<ROHEAD> , RKCSI(RS) READ HEADER CMD 
013737 001426 003372 MOV TS50005, TEMP1 ;SETUP TIMEOUT 
004737 044176 JSR PC FROY ;FIND RDY 
104171 ERROR { :NO RDY AFTER READ HEADER CMD 
032737 100000 003334 SIT @CERR,HCS] 
d0140s BEQ <3 
104174 ERROR 174 :CERR AFTER READ HEADER CMD 
so4401 TYPE MSG18 :ABORT BALANCE OF TESTS 

137 083470 JMe $e de :ABORT DRIVE 
o1gs20 o00024 74g: MOV RKDB(RS)},(RO)+ ;1° SI WORD FROM SILO TO RHTAS 
016529 o9000S4 MOV RKDB(RS); (RO)+ ;e°ND 
O1e520 000054 MOV RKDB(RS)/(RO)+ 33°RD WORD 
032765 100000 000010 BIT 8OLT, RKCS2(RS) 
001407 BEQ 
004737 o4ss524 ISR PC GSTAT 
104173 ERROR 173 ;OLT AFTER READ HEADER CMD 
spasol SSG606 TYPE MSGI *ABORTING BALANCE OF TESTS 

1 38 on IMP gedP :ABORT ORIVE 

é 5 

922737 001674 001350 CMP RHTAB, FRCYL sCHECK WORD O (CYL8) ONLY 

1401 BE 73$ :BR IF SA! 
104311 738 ERROR 311 :READ CYL WORD HEADER ERROR 
023727 0013S2 000400 CMP TOCYL, #400 :ALL CYL DONE? 

1404 é' BEG 3 :BR IF YES 

337 0012S2 ASL TOCYL :ELSE DO ANOTHER 
900137 0356074 * IME 1$ 
004737 oS0036 ; JSR PC SUTST ;SEE IF SW 14 OR 8 IS SET 
po0520 ae TSt40 :-G0 TO NEXT TEST 

‘RETURN HERE IF SW 14 lf, SET OR 
SW 8 WITH SWR <?:0> 
8$: 

004727 O46106 ISR PC, SUBCLR 
104024 ERROR 24 ;CERR AFTER SCRL 
013765 O013S2 o00020 768: MoV TOCYL,RKDC(RS) ;CYL8 
012765 000017 900000 MOV BSEEK RKCS1(RS) : SEEK cn TO RECONDITION DRIVE. 
B15385 601414 eee MOY ree tenp :SETUP TIMEOUT 
004737 044176 JSR PC BR 3h :FIND RDY 
104131 ERROR 13 51 :NO RDY AFTER SEEK CMD. 
013737 001424 003372 MOV T5000, TEMP 1 
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DZREHC.F O&-0CT-7& 18:09 137 SEEK FROM CYL 0 T0 ALL MAJOR eye & READ HEADERS 
7Sl2 O36574 OO4737 044606 ISR PC. FATTe :FIND @ 
7313 036600 34138 RROR 1 = NO oN METER SEEK CMD 
7514 See608 ?3? 6300000 003334 IT aCERR,HCS1 
a3i8 036615 001401 BEQ 78$ 
o3i8 036612 104210 ERROR 210 :CERR AFTER SEEK CMD. 
Pa ¢ 
7518 036614 OO4737 O46106 78$: JSR PC, SUBCLR 
7519 O36620 104024 ERROR 24 :CERR AFTER SCLR 
oes O36622 023727 001352 900000 CMP 3 t«e«STOCYL, #0 “ALL CYL DONE? 
S255 SSerss Soes85 oorase ee tee + BR SE oo ANOTHER 
oe53 Daeese | Soosae Bee RE 
o35e = O36E4O 004737 O46108 77§: ISR PC, SUBCLR 
ee? O36644 1040D4 ERROR 24 :CERR AFTER SCLR 
7529 001176 CLR SESCAPE 
ses Sees Goeoee OOH #3 SERCE 
7531 O36656 001402 BEQ ? 
7532 S36860 000177 142224 JMe aSLPERR :SW 9 WAS SET. 
iz 4 000177 142216 798: IMP aSLPADR :SW 14 OR 8 WAS SET 
| 7535 036670 108: 
| 7536 038670 005237 001410 INC LPFLG 
| 7537 036674 032777 Odic00 142236 BIT #SW9, ISWR :LOOP ON ERROR? 
| 7538 036702 001312 BNE =F} ?YES, RECONDITION DRIVE 
| 7533 036704 000137 cosou2 Are 23 "RETURN TO MAI 
| 7540 036710 128: 
| 7541 036710 005237 901410 INC LPFLG 
| 7542 036714 032777 001000 142216 BIT #SWS, ISWR :LOOP ON ERROR? 
7543 036722 O01 SNE eg YES, RECONDITION DRIVE 
| 7544 O3€764 00013? o3ss3e mS tRETURN TO MAINLINE 
| 7EMS 936730 14S: 
| 7546 036730 005237 001410 INC LPFLG 
| 7547 036734 032777 901000 14217 BIT SSW, ISWR sLOOP ON ERROR? 
«PENS «036742 001272 SNE fi YES, RECONDITION DRIVE 
7548 036744 000137 036034 IMP 4§ *RETURN TO MAINLINE 
7550 036750 168: 
| 7551 036750 o0S237 001410 INC LPFLG 
| 7552 036754 032777 O01000 142156 BIT 8SW9, ISWR ;LOOP ON ERROR? 
| 7553 O36762 901262 BNE 9g YES RE CONDITION DRIVE 
| 758 036764 000137 036320 IMP s$ RET TURN TO MAINLINE 
| 75 
| 7557 
| 7558 s RERSSSSSSESSELESSAASELELSRERA SASF RARALALSLAAALSESLRAELALARAERRALE 
| 7559 ‘TEST 40 FEK TO ALL CYLS FROM O & READ HEADERS 
| 7560 OSs <sielal $-4-4-5-talalelalalalablelalatallaialaialelehaiaiataeiaiaiabaieisiaioboioeiaisieleiaiaisieeiehaiaiaiiels 
| 7561 036770 900004 $4749: SCOPE 
_ 7562 036772 012737 900001 001174 MOV #1, STIMES '3:D0 1 ITERATION 
733 037008 012706 001100 MOV aSTACK, SP tier Re STK PTR 
7565 027004 005737 oO01242 TST MODTST :SEE IF MODULE TESTING 
756 037010 O0140e BEO DOSEEK ‘BR IF NO 
7567 037012 000137 o4e744 IMP CYLINY tELSE BYPASS TESTS 40 8 41 


| eee nna neetaieeemenentined ieee heen eee Ea | 
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DOSEEK: 


1S: 


2s: 


64S: 
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ALL CYLS FROM 0 8 READ HEADERS 
80, FRCYL :SETUP FROM CYL 
#1, TOCYL :SETUP TO CYL 
aSTACK, SP :RESTORE STK PTR 
PC, SUBCLR 
24 :CERR AFTER SCLR 
810$, SESCAPE 
Paevt TEMP3 ; SETUP 


OCYL; TEMPS ;CYL DIFF 
TEMPS, TEMPY 
TEMP4 | CALDIF TERROR PRINTOUT 
TOCYL,RKDC(RS) ;GO TO CYL 8 


SSEEK RKCSI(RS) ;SEEK CMD 
T10, TEMP! ; SETUP TIMEOUT 
PC FRDY 


rae ROY 
13 NO RDY AFTER SEEK CMD 
8<0.PIP!D.SPIN! D’ VV!D.DRA>,E.AO ;EXPECTED AO 


8:0. FUD!D. SPOK!D. CART!0.DOOR!0. BRHM?D. SSP» ,E.A 


PC, CHKMSG ;CHECK MSGS A0,80,A1,81 

if saetT. B2!0 3 MSGS SeECTETED HERE 
:MSG AD braoe DURING SEEK CMD 

so :MSG 80 ERROR 

205 :MSG Al ERROR 

206 :MSG B1 ERROR 

#123, SESCAPE 

T5000, TEMP 1 ;SETUP TIMEOUT 

PC FATT2 sFIND ATTN 

l !NO ATTN AFTER SEEK CMD 

ACERR, HOS! 

210 ;CERR AFTER SEEK CMD 


#<D.DSC!D.SPIN!D.ORDY!D.VV!D.DRA>,E.AQ ;EXPECTED MSG AD 


#<D.SPOK!D. carts b. 2Q0R?0, BRHM!D.SSP>,£.Al sEXPECTED Al 
#1.£.81 MSG 10 FOR EXPECTED MSG B1 
; EXPECT ED MSG Ae 


#2,£.B2 *MSG ID FOR EXPECTED MSG Be 
#3.£.83 :MSG ID FOR EXPECTED MSG 83 

PC, CHKM oe : CHECK ns¢s AO,80,A1,8 

T.A2!T.B & MSGS SPECIFIED HERE 








Ne 


aaa alata 


oe 
“e 
2 


& 
a 


eas 


e 


oo 
< 
© 

4ne 


012737 
00037 
012737 
012737 


a 
BE 
004737 
1042 

1 5 
104274 
10426E 
ae 
i 
104415 
012706 


004737 
104024 


ata7ee 


004 
104171 


001362 


001364 
001100 
O46 106 


1368 


001674 


00 . 
000025 


01426 


- DY4176 


4 
5 


000090 
000010 
000009 
003372 


003424 


003430 
003432 


003436 
003442 


001352 


ares 2714008) 


6S$: 


sé$: 


33: 


Ele 
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ALL CYLS FROM 0 8 READ HEADERS 
133 sHSG 0 AO ERROR AFTER SEEK CMO 
3 Mee £0 EReoe 
136 iMsG Bl ERROR 
ae 
137 :CYL DIFF NOT CLEARED AFTER SEEK CMD 
acciR, RKCS1(RS) 
SUNIT "RKCSe(RS) DRIVES 
LEAR, RKCS1 (RS) :DRIVE CLEAR CMD 
rio Ris 
$ :FIND RDY 
:NO RDY BFTER DRIVE CLEAR CMD 
PC, STATA :TEST FOR A 
154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#010. .SPINID. -DROY1D. Wid. ore ,£.A0 sEXPECTED MSG AC 
aD: SPOK!D.CART!D. DOOR'D. BRHM >,E.A :EXPECTED Al 
#1 Bil MSG 1p FOR EYPERTED MSG te 
rE ED MSG 
# aE. 88 :MSG ID FOR EXPECTED MSG B2 
!MSG ID FOR EXPECTED MSG B23 
PC, CHKMSG ;CHECK MSGS ide 80,Al 
T.herT Be! oS eee BEET EtED HERE 
MSG AD o RoR” Bore DRIVE CLEAR CMD 
S iM G BC ERROR 
"MSG Al ERROR 
!M5G Bl ERROR 
CYLADD, TOCYL 
? ;CYL ADDR IN RKMR3 NOT=RKDC 
sSTACK, SP :RESTORE STK PTR 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


SESCAPE 
TOCYL,RKDC(RS) ;CYL ® 


La at RKCS1(RS) READ HEADER CMD 
0000, TEMP! a ot t 


N 
NO ROY AFTER READ HEADER CMD 


a a 


ee 


2 
B 


auguuuaaaaa as 


J 


datlotneuns 


= 0+ b= 0 + bo 0 0 0 he pe 


W000 NOU £ Wr 


SRRSSRSRRASRR 


DR I 
DE-OCT 
SO 


100000 


OS&E06 
043470 


000Ce4 


100000 
045534 


OS&606 
043470 


001874 


040706 
001424 
O44606 
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003334 


009010 


001352 


001176 
000920 
001354 
000000 
003372 
003424 


003430 
003432 


001176 
003372 


MACY11 27( 1006) 
T4O SEEK TO ALL CYLS FROM O & READ HEADERS 


ess: 


£ss: 


4S: 


Fle 
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HCERR, HCS1 

174 sCERR AFTER READ HEADER CMD 
MSG18 ‘ABORT BALANCE OF TESTS 
$E0P ABORT DRIVE 

RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 

RKDB(RS)'(RO)+ :2°ND WORD 

RKDB(RS)'(RO)+ :3°RD WORD 

OLT, RKCS2(RS) 

PC GSTAT 

173 :DLT AFTER READ HEADER CMD 
MSG18 !ABORTING BALANCE OF TESTS 

$e OP !ABORT DRIVE 

RHTAB, TOCYL sCHECK WORD O (CYL®) ONLY 

310 *READ CYL WORD HEADER ERROR 
#STACK, SP :RESTORE STK PTR 

PC, SUBCLR . 

24 ;CERR AFTER SCLR 

#14$, SESCAPE 


FRCYL,RKDC(RS) ;RETURN TO CYL 8 
FRCYL;CCYL !CURRENT CYL FOR TRUERROR ROUTINE 


#SEEK RKCSI(RS) ;SEEK CMD 
T10, TEMP : SETUP TIMEOUT 


C.FRDY : 
13 :NO RDY AFTER SEEK CMD 
#<0.PIP!D.SPIN'!D:VV!D.DRA>,E.RO ;EXPECTED AO 


#<D.REV!D. SPOK!D. CART!D.DOOR!D.BRHM!D.SSP>,E£.Al 
#1,€.81 
PC, CHKMSG ;CHECK MSGS AO,B80,A1,81 


T.A2!T.B2!0 MSGS SPECIFIED HERE 
203 MSG a0 ERROR DURING SEEK CMD 


204 ;MSG BO ERRO 
205 ;MSG Al ERROR 
206 ;MSG B1 ERROR 
#16$, SESCAPE 


75000, TEMP1 ;SETUP TIMEOUT 
PC,FATT2 :FIND ATTN 













o40012 

7740 040026 

040026 
040034 

77s Bote - 

7747 O40060 012737 

ore 0066 012737 

coer Bastoo | Socoss 

7752 O40102 104133 

7753 «O40104 104134 

7754 O40106 104135 

7755 040110 104136 

7756 O40lle 005737 

7757 O40116 O01401 

7758 040120 104137 

7759 
7760 o4o122 
(«eee yates puazes 
«7764 «040136 012765 
«7765 40144 §=013737 
| 7766 O401S2 004737 
| 7767 O40156 104151 
| TS BE BG 
| 7770 O40166 104154 
| 7771 040170 
| 2773 040170 012737 
| 7774 040176 005037 
«7775 «O4de02 012737 
| 7776 40210 012737 
| 7777 O40216 D 
HA Rs RES 
| 7786 
«Be ies Bae 
| 7783 O40e44 104273 
| 7784 O40e4— 104265 
| 7785 O40250 104274 
| 778 040252 104ee6 
i 

7788 040254 023737 
| 7789 O4Geb2 001401 
| 7790 O40264 104243 


3 
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100000 003334 


050340 
003426 
Se 
003434 
BH 


044720 


001262 


001364 


003424 


430 
43e 


003436 
O0344e 


oo0010 
000008 


003372 


o03424 


003430 
003432 


Bostie 


001350 


xe 27( 1006) 


T40 


72$: 
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SEEK TO ALL CYLS FROM 0 & READ HEADERS 





;NO ATTN AFTER SEEK CMD 


acERR,HCS! 


210 ;CERR AFTER SEEK CMD 


8<D.DSC!D.SPIN!D.ORDY!D.VV!0.DRA>,E.AC ;EXPECTED MSG AQ 


E.80 EXPECTED M SG 0 
#<D. SPOK!D. cart#b. DOOR!'D. BRHM!D. SSP» sEXPECTED Al 
#1,£.81 6 ID FOR EXPECTED’ Feel B1 

E.A2 ‘EXPECTED MSG Re 

#2,£.B2 !MSG ID FOR EXPECTED MSG Be 

#3,£.83 :MSG ID FOR EXPECTED MSG 83 

PC, CHKMSG :CHECK MSGS AO,80,Al 

T.BetT. Be!o -& MSGS Bare Pten HERE 
:MSG AD iRroR AFTER SEEK CMD 

134 :MSG BO ERROR 

135 :M5G Al ERROR 

36 *MSG B1 ERROR 

cYLOIF 

137 sCYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR,RKCS1(RS) 

SUNIT RKCS2(RS) ;DRIVE® 

aCLEAR RKC CS1(RS) :DRIVE CLEAR CMD 

C One RDY FIND RDY 

1 NO RDY BFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR A 

is4 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<O1D. .SPIN!D. DRDY!D. VV!D.DRA> ,E.A0 sEXPECTED MSG AD 
#<0, SPOK!D. CART!8. DOOR! 0. BRHM!D. SSP> >,£.Al sEXPECTED Al 
i 1,£.81 :MSG ID FOR EXPECTED MSG B! 
EXPEC TED. MSG Ae 

a2.F- Bg MSG 1D F R EXPECTED MSG B2 

3 MSG FOR EXPECTED MSG B3 
PC, CHKMSG sCHECK MSGS AD Bg, Al,B1 
Y Retr. B2!0 "& MSGS SPECIFIED HERE 
273 :MSG AD EraoR aore DRIVE CLEAR CMD 
265 :MSG BO ERROR 
274 :MSG Al ERROR 
2bE :MSG Bl ERROR 
CYLADD, FRCYL 
cs 


243 





;CYL ADOR IN RKMR3 NOT=RKDC 






————— eee 


etettetatetoretatcte 


Tete 
b= = b+ 2 = Bb oe he pe 


WO NMU£ tue 


“I~ 
yr 


UNIBUS RKOG DRIVE 
DOZREHC.P12 O&- 





004737 
104024 
013765 


001100 
046106 
001176 
001350 
001674 

00eS 


00 
001426 
044176 


100006 


OS&E0 
» 093470 
‘po0024 


009924 
oo0de24 
100000 
045534 
OS&606 
043470 


001674 


001352 


ek 


050036 


O46 106 


001352 


2 eg A PART 1 
OCT-76 18:09 


000020 


000000 
003372 


003334 


000010 


001350 


000632 


000020 


—? 27( 1006) 


S$: 
SCOP] 
MOV 


JSR 
ERROR 
CLR 
MOV 


74S: MOV 


7S$: 


738: 


6$: 
8S: 


768: MOV 


06-OCT-76 23:23 PAGE 150 SEG 0150 
SEEK TO ALL CYLS FROM O & READ HEADERS 


aSTACK , SP 
PC, SUBCLR 
24 


SESCAPE 
FRCYL,RKDC(RS) 


;RESTORE STK PTR 
;CERR AFTER SCLR 


sCYL 8 


RH 
t ROHEALS aah i -READ HEADER CMD 


Ts0000 TEMP 
Pept 


a aaa 


#DLT, RKCS2(RS) 
PC GSTAT 

173 

MSG18 


$£0P 
RHTAB,FRCYL 
73$ 
311 

TOCYL, #410. 
TOCYL 

1$ 
PC, SHTST 
TSt41 
PC, SUBCLR 
24 


TOCYL ,RKDC (RS) 


TIMEOUT 


RDY 
{NO RDY AFTER READ HEADER CMD 


;CERR AFTER READ HEADER CMD 
:ABORT BALANCE OF TESTS 
;ABORT DRIVE 


:1°ST WORD FROM SILO TO RHTAS 
:2’ND WORD 
33°RD WORD 


;OLT AFTER READ HEADER CMD 
:ABORTING BALANCE OF TESTS 
ABORT DRIVE 


; CHECK WORD O (CYL#) ONLY 
*READ CYL WORD HEADER ERROR 


;ALL CYL DONE? 
;BR_IF YES 
;ELSE DO ANOTHER 


;SEE IF SW 14 OR @ IS SET 
-GO TO NEXT TEST 

RETURN HERE IF SW 14 IS SET OR 

Sli 9 WITH SWR <7:0) APPLY 


;CERR AFTER SCRL 
;CYL8 








UNISUS RKOG DRIVE DIAGNOSTIC PART 1 
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7848 
7849 04050e O1e765 0000i? 000000 


fet REL hate RAH: 


oees e 104131 
7854 040524 013737 001424 003372 
78SS O040S32 004737 O44606 


sees Bupese aH 100000 003334 
sel REE SRE, 


7864 O40S60 023727 001352 000000 
7865 04 ; 


OS&6 001403 

7866 0S70 005337 001352 
0574 000737 

7869 040576 4737 O46106 
0602 To034 


787e O40604 005037 001176 
873 040610 005737 001410 


7875 040616 000177 140266 

7876 O406ee 000177 140260 

7878 

7878 040626 005237 001410 
032777 001000 140300 

037200 


7884 O4064%6 005237 001410 
7885 O0406Se Q3e777 O01000 140260 


O40&6e 000137 037474 


7888 O40655 

7890 buDe 0 535 501000 140240 
789 Bigrob 001272 

78 000137 037772 

7893 0407 

ress Daoris oaer7? Soldoo 4oze0 
7896 040720 001262 

7897 040722 000i 040266 


cere geeee ee prceeeece i 
2 
4 


040726 000004 
7903 040730 012737 000001 001174 


MACY11 27( 1006) 
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788: 


773: 


798: 
10S: 


12S: 


14S: 


168: 


JMP 


06-OCT-76 23:23 PAGE 151 


SEEK RKCS1(RS) ;SEEK CH 10 RECONDITION DRIVE. 
pe ag PEND rot 
131 "NO RDY AFTER SEEK CMD. 


TSO00, TEMP! 
pC Fate sFIND ATTN | 

Lie !NO ATTN AFTER SEEK CMD 
aCERR, HCS1 

210 :CERR AFTER SEEK CMD. 
PC, SUBCLR 

24 ;CERR AFTER SCLR 

TOCYL, #0 sALL CYL DONE? 

775 :BR IF YES 

TOCYL ‘ELSE DO ANOTHER 

76§ 

PC, SUBCLR 

24 :CERR AFTER SCLR 
SESCAPE 

LPFLG 

795 

JSLPERR ;SW 9 WAS SET. 

aSLPADR :SW 14 OR 8 WAS SET 
LPFLG 

#SW9, ISWR ;LOOP ON ERROR? 

8g :YES, RECONDITION DRIVE 
2g ?RETURN TO MAINLINE 
LPFLG 

#SW9, aSWR ;LOOP ON ERROR? 

Og :YES, RECONDITION DRIVE 
3$ :RETURN TO MAINLINE 
LPFLG 

#SW9, JSWR sLOOP ON ERROR? 

85 ?YES, RECONDITION DRIVE 
4§ :RETURN TO MAINLINE 
LPFLG 

#SWS, ISWR ;LOOP ON ERROR? 

95 YES, RECONDITION DRIVE 
cs ?RETURN TO MAINLINE 


eee eras eneenee eet at hak Pea ta ain eran ee 
:STEST 41 

+ SELLE AEASSS SSE AEAA SAA RASS EA RELA RARE RA ALALALERLERARAAARLELARAAEFEE 
téT41: SCOPE 
MOV 


SEEK TO ALL CYLS FROM CYL 410 & READ HEADERS 


#1,STIMES ;;D0 1 ITERATION 


SES 0151 


























DOZRSHC.P11 


peter 


$3.3 3.0.0.0-3.3.8O8 
WO NMULES lurm-O 


ROSRN 
22 22292 


040736 


041000 


atat = 
TS) 
<u 


Re 888 22 Re GR 


Se 


+ 0 b= ee es he ee rere 


Ere? 22 222 V2 


Tl od & | 
~ 
<= 


S SESCBER 


2 


SELLE LELILLE 
wR 


Per eer Ory Ory eras ery ony wey ery eer Ory 


ruroru 
To 
mvMo 





012706 
004737 
104024 
Cie7eés 
012765 
013737 
Ne 
104131 
013737 
004737 


104210 


37 
104024 


013765 
012765 
013737 

737 
104131 
012737 
005037 
012737 
012737 
004737 
000003 
104203 
104204 
104205 
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001100 
046106 
000632 


000017 
001414 
044176 


000020 


000000 
003372 


003372 


003334 


001360 
000020 
000000 
00337e 
003424 


003430 
003432 


MACYL1 27( 1008) 
T41 


64S: 


18: 








sSTACK , SP 


PC, SUBCLR 
24 


#410. ,RKDC(RS) 
sere RKCS1(RS) 


i 


TSO00, TEMP1 
pc Fatte 


1 
#CERR,HCS1 
64$ 

210 

PC, SUBCLR 
24 


#410. ,FRCYL 
#409. } TOCYL 


#STACK, SP 
es 


#10, SESCAPE 
FRCYL, TEMP3 


MPY, 
TEMP3, CALDIF 


TOCYL, RKDC(RS) 
SEEK RKCS1(RS) 


10, TEMP1 
C.FRDY 
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SEEK TO ALL CYLS FROM CYL 410 8 READ HEADERS 


;RESTORE STK PTR 


;CERR AFTER SCLR 
;QUICK SEEK TO CYL 410 


; SEEK Of TO - eae DRIVE. 
; SETUP pee 


NO RDY AFTER SEEK CMD. 


ho art 
ND ATTN. RFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR 


;SETUP FROM CYL 
SETUP TO CYL 


;RESTORE STK PTR 


;CERR AFTER SCLR 


; SETUP 

;CYL DIFF 
:ERROR PRINTOUT 
;GO0 TO CYL # 


;SEEK CMD 
;SETUP__ TIMEOUT 


Y 
AFTER SEEK CMD 


13 Ni Y 
#<D.PIP!D.SPIN!D.VV!D.DRA>,E.AQ ;EXPECTED AO 
#(D .REV#D. SPOK#D. CART!D. DOOR!D. BRHIM!D. SSP» ,E.Al 


PC, CHKMSG 
TA A2!T.B2!t0 








; CHECK det ye iy BO,Al 


SBECHETED HERE 


sMSG AD EraoR DURING SEEK CMD 
?MSG BO ERROR 
:MSG AL ERR 








06-OCT-76 18:09 
oae0 041214 104206 
7362 O4l2e16 Ole737 O4ebé4 
er O4lee4 013737 001424 
7965 O4l232 004737 044606 
7966 ~=O0412e96 104132 
7367 O041e40 032737 100000 
7968 =O4le46 001401 
7969 041250 104210 
ca La O41eSe2 
ul 
797e O4leS2 012737 050 
7973 041260 37 003426 
7974 =O041eG4 O1e737 001720 
7975 ~O4le7ve Q12737 000001 
7976 041300 005037 903434 
7977 041304 O12737 000002 
Le 041312 012737 000003 
7989 041320 004737 O44720 
7981 O413e4 000003 
7982 041326 104133 
7983 041330 104134 
7984 041332 104135 
7398S 041334 104136 
7986 041336 005737 001362 
7987 O4134e 001401 
7988 O41344 104137 
7389 
7990 + 041346 
7381 , 
7992 O4134 012765 10 
7993 041354 013765 OOlece 
7994 041362 Ole76S 000005 
7399S 041370 013737 001414 
7996 041376 004737 O44176 
a ie Ba 
8000 i4le 104154 
8001 O41414 
8003 041414 012737 010340 
8004 O414ee 005037 O03426 
8005S O41426 O01e737 001720 
8006 O41434 012737 001 
8007 041442 037 003434 
8008 041446 012737 000002 
Eines 041454 012737 000003 
8011 O414%62 004737 044720 
80le O41466 000003 
8013 O41470 104273 
8014 041472 104265 
BO1S 041474 104274 
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DZREHC.F 11 


001176 
003372 


003334 


003424 
003430 
003432 


003436 
003442 


003424 


003430 
003432 


003436 
003442 


MACY11 27(1006) 153 
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2s: 


6S$: 


66S: 


67$: 


SEEK 
ERROR 


Kle 


06-OCT-76 23:23 PAGE 


206 :MSG 81 ERROR 
#12$, SESCAPE 

T5000, TEMP! ;SETUP TIMEOUT 

PC, FATT2 ;FIND ATTN 

1 "NO ATTN AFTER SEEK CMD 

NCERR, HCS1 

210 :CERR AFTER SEEK CMD 

#<D.DSC!D.SPIN!D. -DROYD wid. .DRA>,E.AO ;EXPECTED MSG AD 
#<D.SPOK!D.CART! b. DOOR'D.BRHM!D.SSP»,£.A sEXPECTED Al 
#1,£.81 SG 10 FOR EXPECTED’ MSG th 

; EXP ECTED MSG Ae 

#2,£.B2 °MSG ID FOR EXPECTED MSG B2 

#3,£.83 *MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG :CHECK MSGS fo 80,8 

T, fell. Be!0 Scs Sart Et ED HERE 

:MSG AD ib ne” AFTER SEEK CMD 

133 *MSG BO ERROR 

135 :MSG Al ERROR 

136 :MSG 81 ERROR 

CYLDIF 

137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR,RKCS1(RS) 

UNIT’RKCS2(RS) ;DRIVES 

#CLEAR, RKCS1 (RS) :DRIVE CLEAR CMD 

10, TEMP 
PC. FRDY FIND RDY 

15} INO ROY BFTER DRIVE CLEAR CMD 
PC ,TSTATN :TEST FOR A 

is4 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


#<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.A0 ;EXPECTED MSG AO 


#<D. SPOK!D. carT#b. DOOR: D BRHM!D.SSP>,E.A sEXPECTED Al 
#1.£.81 MSG 10 FOR EXPECTED’ fisc 21 
‘EXPECTED MSG Ae 


4 
#2,£.B2 :MSG ID FOR EXPECTED MSG 
#3/£.83 !MSG ID FOR EXPECTED MSG B3 
PC, CHKMSG :CHECK MSGS AO,B0,A1,B1 
I, ,fetT. B2!0 "& MSGS SPECIFIED HERE 
“MSG AD ERROR AFTER DRIVE CLEAR CMO 
cee :MSG BO ERROR 
274 :MSG Al ERROR 


UNTBUS RKO& DRIVE DIAGNOSTIC PART 1 ee 27(1006) O8-OCT-7& 23:23 PAGE 154 SEG 01S4 





DZREHC.P11  O8-OCT-76 18:09 SEEK TO ALL CYLS FROM CYL 410 & READ HEADERS 
e018 O4147& 104266 ERROR 266 :MSG 81 ERROR 
8018 041500 023737 001364 001352 CMP CYLADD, TOCYL 
e018 O41508 001401 8EQ 3$ 
020 1516 104207 ERROR 207 :CYL ADDR IN RKMR2 NOT=RKDC 
e022 o41S1e 38: 
8023 oO41512 104415 SCOP 
-8024 41514 012706 001100 MOV #STACK, SP sRESTORE STK PTR 
026 O41520 004737 O46105 ISR PC, SUBCLR 
ee? o4i5e4 104024 ERROR 24 -CERR AFTER SCLR 
8029 o41526 7 001176 CLR SESCAPE 
e020" 041532 013765 001352 oco0020 MOV TOCYL,RKDC(RS) ;CYL 8 
8032 
°8023 O41540 012700 001674 MOV #RHTAB, RO 
Be hes fee pee Re ig ome om 
= . 
is puiBeb 737 pease ISR Be PRR y : RDY 
1564 104171 ERROR 171 :NO RDY AFTER READ HEADER CMD 
8038 O41566 032737 100000 003234 BIT #CERR,HCS1 
8039 041574 oo 1405 Beg 695 
e040 041576 1041 ROR 174 ;CERR AFTER READ HEADER CMD 
| 8041 O41600 104401 oSeE06 TYPE MSG18 "ABORT BALANCE OF TESTS 
Bove 041604 000137 043470 IMP $e0P :ABORT DRIVE 
8044 O41610 O1€S520 oD0ce4 69$: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 
8045 O41614 016520 ooode4 MOV RKDB(R5);(RO)+ :2°ND WORD 
cove 041620 916520 900024 MOV RKDB(RS5);(RO)+ :3°RD WORD 
| Boue 
| 8048 o41624 765 100000 op0010 BIT #DLT, RKCS2(R5) 
| gOsO 041632 001407 BEQ 
| BOS1 O41634 737 o4SS34 JSR PC, GSTAT 
8052 O41640 104173 ERROR ? ;DLT AFTER READ HEADER CMD 
BO53 O41642 104401 oOSeE06 YP MSG18 ?ABORTING BALANCE OF TESTS 
8054 oO4164¢ 000137 043470 IMP $e OP :ABORT DRIVE 
B55 O41ES2 703: 
S057 O41652 023737 001674 001352 CMP RHTAB, TOCYL :CHECK WORD O (CYL#) ONLY 
S058 O41660 001401 BEG 68S :BR Al 
8059 41662 104310 ERROR 310 :READ CYL WORD HEADER ERROR 
| BO6O O41E64 68S: 
8061 
S062 
| BOE3 O41E64 1O44IS SCOP! 
e064 O41666 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
BORE ONIE72 004737 O4BIOE JSR PC, SUBCLR 
| B07 O41676 104024 ERROR 24 :CERR AFTER SCLR 
| 8069 041700 012737 O42704 O01176 MOV #14$, SESCAPE 
£070 O41706 013765 001350 900020 MOY FRCYL,RKDC(RS) ;RETURN TO CYL # 
| 8071 O41714 013737 001350 001354 MOV FRCYL,CCYL CURRENT CYL FOR TRUERROR ROUTINE 





ret 
PEPEE 


MMMM MOMOM MOMOMWOMOWOWOMOMOMWOMOMOMWOMOMOMMmMmaMomoo 
MRR Baw Nin car OSB VRR Lowe owe 
a 
a 


UNTBUS RKOG DRIVE DI 
OZREHC.P11 06-0CT=7 
ae 041722 012765 
8074 i 3737 

75 17. 7 
i742 1041 i 

O41744 0127. 
eors Quis 012737 
8080 Bui oes Ole737 

8081 
1042 


012737 
013737 


042724 
001424 


001362 


190000 
O0le2e 
000605 
001414 
044176 


O444E0 
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009000 
00337¢ 


003424 


Bosse 


001176 
003372 


003334 


003424 
003430 
003432 


003436 
003442 


000000 
000010 
000000 
003372 
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4$: 


718: 


723: 


SEEK 


06-OCT-76 23:23 


SEEK RKCSI(RS) ;SEEK CMD 

T10 TENPI iE TIMEOUT 

PC RS ; 

St *NO RDY AFTER SEEK CMD 
8<D.PIP!D.SPIN!L.VV!D.DRA>,E£.AO ;EXPECTED AO 


s<D.FHD!D. SPOK!D. CART!D.DOOR!D. BRHIM!D. SSP> ,E. Al 


PC, CHKM 0 sCHECK MSGS AQ,B 
rjfelT if nes SPEC tF len HERE 
iM 0 
eo 
imeG Bl ERROR 
816%, SESCAPE 
T5000, TEMP1 ;SETUP TIMEOUT 
PC, FATT2 ;FIND ATTN 
l "NO ATTN AFTER SEEK CMD 
ACER, HCS1 : 
210 ;CERR AFTER SEEK CMD 
#<D.DSC!D. SPIN!D -DROY#D. VV!D.DRA>,E.AG ;EXPECTED MSG AD 
XPECTED MSG 
#<D. SPOK!D. crat#b. DOOR'D.BRHM'D.SSP>,£.Al ;EXPECTED Al 
; °MSG ID FOR EXPECTED'MSG B1 
E.Ae ‘EXPECTED MSG Ae 
#2,£.B2 :MSG ID FOR EXPECTED MSG B2 
#3/£.B3 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ;CHECK MSGS AO,B0,A1,8 
The! T.B2!0 -& MSGS SBECTETED HERE 
:MSG AD Break AFTER SEEK CMD 
133 :MSG BO ERROR 
135 :MSG Al ERROR 
36 *MSG Bl ERROR 
“ot 
137 :CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR,RKCSI(RS) -. 
SUNIT APKCSE(RS) DRIVES 
acl EAR RKC S1(RS) - sDRIVE CLEAR CMD 
PC et FIND RDY 
151 DY AFTER DRIVE CLEAR CMD 
PC TSTATN :TEST FOR ATTN 


SEG 0155 


a 


Nle 
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DZREHC.P11  O&-OCT-7& 18:09 SEEK TO ALL CYLS FROM CYL 410 8 REF HEADERS 

6128 o42204 104154 ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
te 042206 73: 

gi z 012737 010340 on3424 Hoy #0 1D. SPIN!D. DRDY!D. VV!D.DRA> ,E.A0 sEXPECTED MSG a0 
81 pisee0 12737 Bbi 38 003430 MOV #0, SPOK!D.CART!D. Sooe2D, aise ,£.Al sEXPECTED Al 
gi 24 ecb 012727 000001 003432 Mov #1 E.B1 sree ie FOR EXPECTED” MSG B1 

cise Ruseae bier eect 003436 ab EAE MSG fo For BBECTED MSG 82 

B13? O42e46 Ole 000003 o03442 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B3 

r 254 737 044720 ISR CHKMSG ;CHECK MSGS AD,80 1.8 

133 B00 WO ast E819 C Fle HESE 
fis 1 oe EneCR MSG ag bk aoe gece oe a CLEAR CMD 
8142 O42ec64 104265 ERROR 5 

8143 104274 ERROR 274 nee BY ERROR 

gis 104266 ERROR 266 :MSG B1 ERROR 

1H 922737 001364 001350 CMP YLADD, FRCYL 

14 g 551401 9 3 

he 10424 RROR 243 sCYL ADDR IN RKMR3 NOT=RKDC 

8150 042304 » S$: 

8151 O42304 104415 SCOP1 

Elbe 042306 012706 001100 MOY #STACK, SP :RESTORE STK PTR 

8154. 042312 004737 046106 ISR PC, SUBCLR 

gle 042316 104024 ERROR 24 :CERR AFTER SCLR 

8157 042320 005037 001176 CLR SESCAPE 

g15e 042324 913765 001350 oopo20 MOV FRCYL,RKDC(RS) ;CYL 

8160 

8161 o42332 001674 MOV #RHTAB, RO 

Bige O42336 Ole76S 600025 oconc00 MOV #<RDHEAD> .RKCS1(RS) -READ HEADER CMD 

Bigs O42344 013737 001426 0033272 MOV TSO00G, TEMP1 ;SETUP TIMEOUT 

8164 O42e2S2 004737 O44176 JSR PC FRDY : Y 

8165 O42356 104171 ERROR 17] ?NO RDY AFTER READ HEADER CMD 

8166 032737 100000 003334 BIT #CERR,HCS1 

B1E7 O42e266 0140S BEG 75$ 

8is@ O42370 104174 ERROR 174 ;CERR AFTER READ HEADER CMD 

S169 O4e372 104401 OSbE06 TYPE MSG18 ABORT BALANCE OF TESTS 

e170 042376 000137 043470 IMP $E0P :ABORT DRIVE 

8172 o4¥e402 O16520 ooo0e4 75$: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAS 

8173 O4e406 016520 o000e4 MOV RKDB(RS);(RO)+ :2°ND WORD 

e174 O42412 O16520 o00024 MOV RKDB(RS);(RO)+ :3°RD WORD 

£176 

81 16 032765 100000 o00010 BIT #DLT,RKCS2(RS) 

Bibs paeuee DeT4BF By ORS 

8173 O4e426 004727 o4SsS34 ISR PC, GSTAT 

8180 042432 104173 ERROR 173 :DLT AFTER READ HEADER CMD: 

B11 042434 104401 OSeEDE TYPE MSG18 sABORTING BALANCE OF TESTS 

glee O42440 000137 043470 IMP $e OP :ABORT DRIVE 


042444 76$: 





A rm re ne ree ee eer eee eee 


tS 
¢ 


q 


bs 


O4e444 023737 
O4¥e4S2e 00140) 
O4e454 10431) 


foOoD CO CD CD COCO OD ONeD CD tO 0D OD CDC 
Cer ed ee ed ee ee ee ed ee See ee ee ee ee ee 


RPG BBB SRR Pe ESE RAL 


spoistataiey 


us 
ra 
8 
aay 


Hi 
&é 
a 
S GESRSS eS f 


? 
4 


0 02 bs bo oe 0 
7 
? 


1000 SIMU Gume- 
8 SBRS8 


forufulufofurururute 
SQ Mey 


? 
Ht 
at 
fe & 


br 
a 

8 
ie f 


SSSR 
e 
ee 
ay 


fOlorafurorororuroruerene 
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18:09 


001674 001350 


0013Se 000000 


0013Se 
041050 


0S0036 


046106 
00i3S2 000020 
000017 900000 


001414 00337, 
044176 


001424 003372 
O44606 


100000 003334 


0013S2 000632 
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CMP RHTAB,FRCYL sCHECK WORD O (CYL) ONLY 
BE TUS :BR IF 
oa ERROR = 31 sREAD CYL WORD HEADER ERROR 
CMe TOCYL, 80 sALL CYL DONE? 
BEG 3 -BR IF YES ‘ 
DEC-  TOCYL *ELSE DO ANOTHER 
te . IMP 1g 
Beets ISR PC SWTST -SEE IF SW 14 OR & IS SET 
2s TSsté2 *-GO TO NEXT TEST 
!RETURN HERE IF SW 14 IS SET O 
3S 8 WITH SWR <7:0> APPLY 
es: 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCRL 
77$: MOV TOCYL,RKDC(RS) ;CYLs 


MOV aSEEK.RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 

MOV T10, TEMP :SETUP TIMEOUT 

JSR ss PC, FRDY ;FIND ROY : 

ERROR 13] *NC RDY AFTER SEEK CMD. 

MOV T5000, TEMP! 

ISR PC ratte ;FIND ATTN 

ERROR 132 =NO ATTN AFTER SEEK CMO 

SIT sCERR,HCS! 

BEG 79§ 

ERROR 210 ;CERR AFTER SEEK CMD. 
798: JSR PC, SUBCLR 

ERROR 24 :CERR AFTER SCLR 

oP TOCYL, #410. ;ALL CYL DONE? 

BEG 79$ :BR IF YES 

INC TOCYL ELSE DO ANOTHER 

SR 77§ 
78: ISR PC, SUBCLR 

ERROR 24 :CERR AFTER SCLR 

CLR SESCAPE 

TST LPFLG 

BEO 80$ 

IMP aSLPERR :SW 9 WAS SET. 
80s: IMP aSLPADR :SW 14 OR 8 WAS SET 
10S: 

INC LPFLG 

BIT SWS, ISWR :LOOP ON ERROR? 

BNE 8g :YES, RECONDITION DRIVE 


-—- 7; 


reo-- -- er---———= —-> err 


be 
| 


OCREML P11 


re 


en mm ee eee 


4 p03637 


032777 
piss7e O61 208 


8240 23 000137 


01262 
042740 000137 


8244 
S245 
B24 O42704 

¢ Q4e704 

| O42710 rede 
S245 O4e71E O0l272 
8250 42720 000137 
8251 O4e7e4 
S252 042764 052 
e523 Sass 
g2ss5 
826 
8257 
9258 


041216 
001410 
001900 
041Sl2 


001410 
001000 


042010 
001410 
001000 


042304 


when, Ins ORT ye opie STIC_ PART 1 
18:09 


13242 
l3beze 


iz6202 


001174 


posare 


003372 


003334 
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Ek TO ALL CYLS FROM CYL 410 & READ HEADERS 
ci IMP 2 :RETURN TO MAINLINE 
; INC LPFLG 
BIT 8SWS, ISR :LOOP ON ERROR? 
SNE 23 “YES RE CONDITION DRIVE 
ait IMP 3$ RETURN TO MAINLINE 
; Ne LPFLG 
87 8SKS, ISWR sLOOP ON ERROR? 
BNE 8g YES RE CONDITION ORIVE 
ors IMP a3 RETURN TO MAINLINE 
f INC LPFLG 
BIT SHS, ASHR LOOP ON ERROR? 
BNE Q YES, RECONDITION DRIVE 
SMP "RETURN TO MAINLINE 
CYLINV: 


s SHESSELESAAFFLERALLALLELSELELAFSLASLLAALLLSLESEFAELALELALELLAESE 


a7 EST 42 SEEK TO ALL KEY INVALID CYLS 
1+ THIS TEST VERIFIES THAT ‘INV ADOR’ & ‘SEEK INCOMPLETE’ IS 
:* PRO ODUCED 8 THAT HEADS DO NOT MOVE OR UNLOAD IF AN ILLEGAL 
i CYL IS SPECIFIED IN A SEEK. 
i? INVALID CYLS ARE 411 THRU S11 (10) IE. 633 THRU 777 (8) 
:% THIS TEST CHECKS KEY INVALID CYLS 411,412,416,448 8 480 
i FOR A FULL LOGIC TEST 
: PTE PETE ETT T TT ETT TUTE ETT ETE TTT ETT TT TTT ETT TET T ETT TTT T TT TT TTT 
+éty2: SCOPE 

MOV #1, STIMES ITERATION 

MOV aStAck, SP tipo r dee STK PTR 

ISR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

MOV asEEK RKCSI(RS) ;SEEK CMD TO RECONDITION DRIVE. 

MOV T10, TEMP! : SETUP ag iteou 

ISR PC FRDY :FIND RD 

ERROR 13! =NO RDY AFTER SEEK CMD. 

MOV T5000, TEMP! 

ISR PC FatTe :FIND A 

ERROR i NO Orin TN TER SEEK CMD 

eI K RR,HCS1 

EPROR gi ;CERR AFTER SEEK CMD. 
b4$: JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

CLR RO 


cr Co --'_——- oe e+ 


Seu 


Beech 


GRBEEESEES 
WONOUE tore 


hy 


i 


SHPO USO 


a 
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06-OCT-76 18:09 THe SEEK TO ALL KEY INVALIO CvLS 





















pus04e 006037 001350 CLR FRCYL -FROM CYL 0 
nase s044 et es 
Rasees ATESAE ono MOV STACK, SP SRESTORE STK PTR 
243060 737 046106 JSR PC, SUBCLR 
043064 rote ZBRoR 24 :CERR AFTER SCLR 
D4306& 016037 003304 001352 MOV INVCYL (RO) TOCYL :GET INVALID CYL ADDR 
043074 013737 001352 9001360 MOV otr 
043102 0137685 001352 000020 MOV TOCYL? RKDC (RS) 
043110 612765 900017 900009 MOV BSEEK RKCSI(RS) ;SEEK CMD 
Rus Gere Bee AS! a gins EON 
aé 3 
043130 10413) ERROR 13] "NO RDY AFTER SEEK CMD 
043132 737? «O44460 TSR PC TSTATN 
043136 104245 ERROR 246 ;NO ATTN AFTER SEEK TO INV CYL 
043140 032737 OD004O 003364 BIT #D. IDAE, HMR 
043146 001001 SNE 2g 
043150 ised ERROR 246 sIDAE NOT SET AFTER SEEK TO INVALID ADDR 
043152 o00200 003364 2s: BIT #0. FLT,HMR3 
043165 90100) SNE 4§ 
043162 10424? ERROR 247 sFLT NOT SET AFTER SEEK TO INV ADDR 
043164 032737 o20000 o003%2 4s: BIT #0. PIP, HMR2 ~ 
043172 001401 BEQ c$ 
043174 104250 ERROR 250 :PIP SET AFTER SEEK TO INV ADDR 
043176 032737 o40000 o033b2 S$: BIT #D.0SC,HMR2 
043204 001001 BNE £3 
043206 104251 ERROR 251 :DSC NOT SET AFTER SEEK TO INV ADDR 
042210 z 001462 6S: INC BYPCERR :BYPASS CHECKING FOR CERR IN GSTAT 
943214 012727 O60340 o03424 MOV 8<D.OSC!D.SPIN!D: DRDY#D. VVID.DRA>,E.AQ ;EXPECTED AO 
043222 012737 002240 O0342¢ MOV #<0.SKI'D.FLT'D. IDAE> .£.80 
043230 012737 001720 003430 MOV #<D.SPOK!D. CARTID. DOORID.. BRHM!D.SSP>,E.Al 
043236 O12737 600001 003432 MOV #1,£.81 
043244 004737 oO44720 ISR PC, CHKMSG ; CHECK NSGS AO,80,A1,81 
043250 900003 .WORD =-T.A2'T.B2!0 -& MSGS SPECIFIED HERE 
043252 104252 ERROR be5 :MSG AC ERROR AFTER SEEK at INV CYL 
043254 104253 ERROR 253 :MSG BO ERROR 
043256 104254 ERROR 254 MSG AL BAe OR 
043260 1042eS5 ERROR 255 :MSG B1 ERROR 
043262 022737 001262 001352 CMP CYLDIF, TOCYL 
043270 001401 BEQ 7$ 
043272 104256 ERROR 256 sCYL DIFF IN RKMR2 NOT=CYL DIF 
043274 023737 001264 001352 73: CMP CYLADD, TOCYL 
043302 001401 BEQ 8 
043304 104257 ERROR 257 :CYL ADDR IN RKMR3 NOT=RKDC 
043306 QS: 
043306 012765 100000 oo0000 MOV #CCLR,RKCS1(RS) 
043314 013765 O0l2e22 900010 MOV SUNIT RKCS2(RS) 
043322 012765 O00013 900000 MOY BRECAL, RKCS1(RS) :RECAL CMD 





em nc er ee a re re a a 
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003372 


000900 
0} 5 
00337e 


003364 


000000 
003374 


668: 


65$: 


MACY11 27( 1006) 
THe SEEK 





qi0 TEMP} 
¢. FRDY 
1S Sa 


l 
PC. TSTATN 
66S 
154 


PC, Ie" ae 
#D: IDAE, HMR 
&s$ 


15S 


#CCLR, RKCSI(RS) 
T1, TEMP 
PC’FATTI 

ss 
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TO ALL KEY INVALID CYLS 


;NO ATTN AFTER RECAL CMD 





sFIND ROY 
sRDY NOT FOUND AFTER SECAL CMD 


VES 
;ORIVE CLEAR CMO 


:F 
Ne ROY Y AFTER DRIVE CLEAR CMD 
TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


Be IE y IDAE IS CLEARED 
:IDRE NOT CLEARED AFTER RECAL i 


;LOOK FOR ATTN FROM RECAL 





| 
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END OF PASS ROUTINE 


PART 1 


e 


| g385 .SBTTL END OF PASS ROUTINE 
eee jriunt he bet MPR (i) Tree 
I RINCREMENT THE PASS NUMBER (SPASS) 
$386 : aTYPE SENG BASS #XXXXX™ TWHERE XXXXX IS A DECIMAL NUMBER) 
| 8390 iT THERES A MONITOR GO TO IT 
e22! #IF THERE IN" 7 JUMP TO STS 
8393 942470 SEOP: 
$395 
SSce buasee Saeoe O01 Boy ASTACK, SP 
e3 BaaasE BAe 98 B61208 INC Hava :INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
$399 o460e 022737 003454 901220 cH DRIVS SDEVCT :BRE ALL epRIves PRESINT TESTED? 
| 5324 Base) B83 011356 oe NUDRV !IF NOT , TEST NEXT DRIVE PRESENT 
8401 O43516 O00004 SECP1: SCOPE 
S402 043520 005037 001102 ELR $TSTNM ss ZERO THE TEST NUMBER 
8403 043524 906037 001174 éLR STIMES ::2ERO THE NUMBER OF ITERATIONS 
8404 043530 37 01216 INC SPASS js INCREMENT THE Pass NUMBER 
B40S 043534 042737 100000 colels BIC #100000,$PASS :;DON’T ALLOW A NEG. NUMBER 
| 8406 O43542 005327 DEC (PC)+ : sLOOP? 
| 8407 043544 000091 SEOPCT: .WORD 
| B408 043546 003022 BGT SDOAGN YES 
_ B4808 043550 012737 MOV (PC)+,a(PC)+  $:RESTORE COUNTER 
| 8410 43552 SENDCT: .WORD 1 
8411 042554 43544 SEOPCT 
B412 043556 104401 043623 TYPE SENDMG :; TYPE “END PASS # 
| 8413 043562 012746 Oolzié MOV $Pass,-(SP) i FSAVE § $PASS FOR ty YPEOUT 
| 84145 043566 104405 TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
| BSIE 043570 104401 042620 TYPE SENULL :: TYPE A NULL CHARACTER 
| Eats 043574 013700 d0004e $GET42: MOV dese. RO :GET MONITOR ADDRESS 
8417 043600 001405 BEQ secnaN” ?:BRANCH IF NO MONITOR 
| B4iB 043602 990005 RESET !:CLEAR THE WORL 
| 8419 043604 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
| gB4ed OM 090240 NOP ::SAVE ROOM 
 «B421 043610 5 NOP :: 
| S422 042612 45 NOP :ACTLI 
S423 043614 SDOAGN: 
| Be Ren BA gen. “Kom S08 eri 
| Buse a 377 000 §SENULL: [BYTE NULL CHARACTER STRING 
| B42? 043623 015 O4e4l2 O42116 SENDMG: .ASCIZ 18) cle» /eno pasé’s 





84 
S428 049630 050040 051501 Oe0le3 


104411 


001344 
001344 
OS5116 
o0d04e 


001230 
001140 


000001 


177770 


177400 
OOS4SE 
000060 


000070 


177770 


000001 
000176 


001134 
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SUBROUTINES 


.SBTTL SUBROUTINES 
; SUBROUTINE TO CLEAR ALL FLAGS FROM DOUMP THRU DOTIM 


CLRFLG: MOV SDOUMP, RO 
MOV 8-17. ,R1 
1$: CLR (RO)+ 
INC F 
NE 1 
RTS PC 


'TYPE PROGRAN ID IF FTITLE=0 


TITLE: TST care 
+e FTITLE 


TYPE MSGI ROGRAM ID 
.SBTTL GET vALUE FOR SOFTWARE sittca REGISTER 

TST #42 +:ARE WE RUNNING UNDER XXDP/ACT? 
;;BRANCH IF YES 


BNE a4 us 
CMPB SENV, #1 WE ee UNDER APT? 


BEQ 64S :;BRANCH I 

CMP SWR, #SWREG 7 3 SOFTWARE SuTTCH REG SELECTED” 
BNE 65$ ;BRANCH IF_NO 

GTSWR :;GET SOFT-SWR SETTINGS 


BR &S$ 
MOVB #1, SAUTOB 
RTS PC 


Poe: 3;SET AUTO-MODE INDICATOR 
1S: 


ROUTINE TO INPUT DRIVE NOS. TYPED IN 8 SET 
;DRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 


GDRVS: RDLIN z 
MOV (SP)+,RO :GET STARTING ADDR OF ASCII STRING 
MOV #-8. RI :SET UP COUNT 
1$: MOVB (RO)+, Re :GET ASCII CHAR 
BIC #177400, Re :MASK HI BYTE 
MOV #ORIVO,R3 :DRIVE FLAG ADDR 
MOV #60,R 
2s: CMP RY, R2 :WAS TYPED CHAR O THRU 7? 
BEG 3$ :BRANCH IF YE 
TSI (R3)+ :NO, INCREMENT DR FLAG ADDR 
CMP R4, #70 
BNE :S/B O-7 OR TERMINATOR 


;DEFAULT ALL ORIVES 


SEG Clte 











H13 
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DZREHC.P 1 O6-ocT-76 18:09 GET VALUE FOR SOFTWARE SWITCH REGISTER 
S486 O44016 005037 o03504 7$: CLR SIZFLG :BYPASS TEST 1 (SIZING) 
8487 O44022 900207 RTS PC : FOUND TERRINATOR. EXIT 
Elss 044024 005213 38: INC aR3 ;SET UP FLAG FOR THE DRIVE 
8490 044026 005237 003454 TNC DRIVS ; INCREMENT TOTAL # DRIVES TO BE TESTED 
8481 O44032 112002 move (RO) 4, Re sGE1 ex! ASCII CHAR. 
Bugs bauoaa aes Aroges ete #177900, Re it 118 
ss Baaeug 14 EFS By ik WORD. 

S495 O4404— 005702 TST Re :NO, We ITA NEEM TNETOR? 
S496 944050 901001 NE 4§ SOMETHING WRONG. 
aed o440S2 900781 BR 7§ FOUND TRERMINATOR, EXIT 
8499 O54 104401 oS7255 4g: TYPE EMI sONLY 0-7 ALLOWED. 
e500 4060 000137 dS07i46 IMP PRGSRT ‘START ALL OVER 
8502 oO44064 o0S201 S$: INC R1 :$/8 NO MORE THAN 8 DIFF 

/ 8503 O44066 001330 BNE 1$ :DRIVES TYPED IN. 
e504 044070 900771 BR 4g :IF NORE, HAVE ERROR. 
BecE 005237 003504 6S: INC SIZFLG :D0 TEST 1 (SIZING) 
8507 O4407E 000207 RTS PC ZEXIT. 

| Bode 

|  §s09 : 

| g5i0 :ROUTINE TO INPUT RKBAS OR DEFAULT. 

«ge 

| gsi3 p44100 104412 GBA:  RDOCT 

, B15 102 Oi2600 MOV (SP)+,RO :GET LOW ORDER FROM STACK 

| 8515 O44104 905700 TST RO 

| BSIE O44106 001403 BEQ 1$ ;BRANCH IF DEFAULT. 

| 8517 O44110 010037 oc1264 MOV RO, SBASE 

| B5ig O44114 900207 RTS 

| §819 O44116 012737 177440 O01264 1S: MOY #177440,$BASE  ;DEFAULT VALUE 

| g520 044124 900207 RTS PC 

| BS2i 
S22 ; 

| Bees ?ROUTINE TO INPUT RKVEC OR DEFAULT 

| 8525 ; 

| 8526 O44126 104412 GINT: RDOCT 
8527 044130 612600 MOV (SP)+,RO :GET LOW ORDER FROM STACK 

| 8528 044132 005700 TST RO 

| 8529 044134 901405 BEQ 1$ ;BRANCH IF DEFAULT 

| 8530 044136 010037 001214 MOV RO, RKVEC 
8531 O44142 004737 O44]E0 2s: JSR PC’ SETINT 

| BE32 044146 000207 RTS pc’ 

| 8533 O84150 012737 o000210 001314 1S: MOV #210, RKVEC :DEFAULT VALUE 

| 8534 O44156 900771 BR 2 

«geSe 
go27 ‘ROUTINE TO SETUP INTERRORUPT VECTOR & PRIORITY 

| BS39 ' : 


17S 001314 SETINT: MOV 


RKVEC , RO 
2720 Os0S56 MOV SINTER, (RO)+  ;INTER ADDR TO RKVEC 


| 8540 O44160 0 
| 854] O44164 0 








DZ 


44170 
4174 


13710 
00207 


001316 


000200 
003372 
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0G0000 


000009 


003362 
003364 


003362 
003364 


003334 
36 


003366 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV pens, a0) ;PRS TO RKVEC+2 


RTS 
: ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY 
‘ENTER WITH A COUNT IN TEMP 
: RETURN IF RDY NOT PRESENT (ERROR CONDITION) 
*RETURN +2 IF RDY PRESENT (SKIP OVER ERROR) 
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
FRDY: BIT #RDY , RKCS1(RS) 
BNE 1$ 
DEC TEMP 
BNE FRDY = 
ISR PC, HO sSTORE ALL RKG11 REGS IN HOLDING REGS 
58 PC, CKCERR ; CHECK FOR SPECIAL CERR 
{ 


SKIP Pooch te ERROR 
;CHECK FOR SPECIAL CERR 


1§: ROD we, (SP) 
JSR PC, CKCERR 


ROUTINE TO FIND CONTROLLER READY & STORE DRIVE REGS ONLY 
FRDY1: BIT #RDY , RKCS1(RS) 
BNE 1$ 


DEC TEMP 

BNE FRD 

MOV RKMRS (RS), HMRe 

MOV RKMR3(RS) HMR 

JSR eee! CHECK FOR SPECIAL CERR CONDITIONS 
1S: ADD : SKIP OvER ERROR 


MOV araRs (RS), HMR2 
MOV RKMR3(RS);HMRS 


JSR Be .CKCERR’ ;CHECK FOR SPECIAL CERR CONDITIONS 


STORE ALL RK&11 REGISTERS IN HOLDING REGS 


HOLD: MOV RKCS1(RS),HCS1 
MOY RKCS2(RS)HCSe 
MOV RKWC(RS) , AWC 
MOV RKBA(RS) | HBA 
MOV RKDA(RS); HDA 
MOV RKDS(RS), HDS 
MOV RKER(RS) HER 
MOV RKASOF (RS), HASOF 

y RKDC(RS) HOC 
MOV RKMR1(RS} HMRI 
MOV RKMR2 (RS); HMRe 
MOV RKMR3(RS) HMR3 
MOV RKECPS(RS} ,HPOS 


SEG Cis4 
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8598 44450 
ea O44455 


8601 


Nites} 
+H: 
2 


od pd pd od tad ad ad ta cad ad at A a a a a a 
(0 SPUN Ere O . ee 


pists 
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016537 
000207 


010446 


Foe aceite 
Etat Atel aret Ae te 
GRO GRR O OT aGE 


OL0446 
013704 
136465 


000032 003370 


O0l2e2e 
003324 9003353 


o000de 


177777 003372 
o0lz22 
003324 000017 
902372 
002374 
poo0ze 
O4S554 
poo0ze 
O4S594 


o000Ce 


001222 
O033e4% 000017 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV RKECPT(RS) ,HPAT 
RTS PC 


:ROVTINE TO CHECK FOR CORRECT ATTN 
fe N IF ATTN NOT PRESENT (ERROR CONDITION) 
RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 


ee, MOV RY, -(SP) ;SAV RY 
MOV SUNIT, RY 
ets ATTN(RY) , HASOF+1 


;BRANCH IF ATTN NOT PRESENT 
MOV (SP)+,R4 RESTOR RY 


B00 82, (SP) :INCR RET ADDR TO JUMP OVER ERROR. 
18: MOV (SP)+,R4 :RESTOR RY 
RTS PC 
'ROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC 
:ENTER WITH TIME IN SECONDS IN TEMP2 
:RETURN IF NO ATTN (ERROR CONDITION) 
:RETURN +2 IF ATTN F 
STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
FATT1: MOV RY. -(SP) :SAV RY 
3: Nov ak: TEM MP 
is: BITB BTTNCRN) , RKASOF +1 (RS) sFIND CORRECT ATTN 


BNE es 
DEC TEMP 1 
BNE 1$ 
DEC TEMPe 


BNE 3$ 
CLR RKMR1 (RS) ;SELECT WORD 0 
ISR PC, GSTAT : GET LATEST STATUS 
MOV (SP)+,R4 : RESTOR 
RTS PC 
2s: CLR RKMR1(RS) 
ISR PC GSTAT ;GET STATUS AFTER ATTN SEEN 
MOV ae RY ?RESTOR RY 
Boo (SP) :SKIP OVER ERROR 


FOUND 
; STATUS IS STAINED BEFORE THE RETURN FOR EITHER CASE 


FATT2: MOV RY +{SB) SAV RY 
: MOY SUNIT, RY 
BITB STARA) RKASOF+1(RS) ;FIND CORRECT ATTN 
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104401 
010046 
oi) 
001 
000 
000297 


017637 
062716 
004737 


Beara? 


eae? 


013746 
013737 
004737 

013737 
ee 
013737 
013737 


003372 
00006 
045534 


000026 
045534 
000002 


003372 
003372 


056516 


009000 
00000e 
045576 


001888 


001466 


03424 


nos434 
003440 


003372 
003424 
003372 
003430 
003372 


K13 
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OFTWARE SWITCH REGISTER 


MACYL1 27(1006) 
GET VALUE FOR § 
BNE 1$ 
DEC TEMP! 
ane Bune 5) 
JSR PC, GSTAT 
Moy (SP)+,R4 
18: CL RKMRI (RS) 
ISR PC, GSTAT 
MOV (SP)+. RY 
ADD #2, (SP) 
RTS pc’ 


sENTER ry A COUNT IN TEMP] 
; THE DELAY IS 


;SELECT WORD 0 
;GET ey STATUS. 
;RESTOR R 


;RESTOR RY 
;SKIP OVER ERROR 


APPROX 17 US/ITERATION + le US TO EXIT 


WHEN COUNT IS 0.. 
jty: TST TEMP 1 
BEQ 1$ 
DEC TEMP 
BR DLY 
1S: RTS PC 


STHIS ROUTINE TYPES BYPASSED DRIVEs. 


BYP: TYPE MSG14 
MOV Ro. -(SP) 
TyP 
OVE 1 
"BYTE 0 
RTS PC 
EHKMSG: MOV a(SP),CHKFLG 
ADD #2, (SP) 
ISR PC’ GSTATL 


BIS SUNIT,E.A0 
BIS SUNIT,E.Al 
BIS SUNIT,E.A2 
BIS IT}E.A3 
MOV TEMP1,-(SP) 


MOY £.A0, TEMP! 
JSR PC, SBPAR 
MOV TEMP1,E.A0 


MOV E.Al, TEMP 
JSR PC, SBPAR 
MOV TEMP1,E.Al 


MOV E.A2, TEMP 


-BASED ON AN 11/05. 


ENTER WITH DRIVE® IN RC 

;BYPASS DRIVE 

5s SAVE RO Bs TYPEOUT 

Hh TYPE=-0CTAL ASCII 
DIGIT(S) 

SUPPRESS LEADING ZEROS 


; THIS ROUTINE READS ALL MSG ASB WORDS & CHECKS THEM AS REQ’D 


4p. MSGS ae BE TESTED 
UMP RETURN ADDR TO IST ERROR 
ger ALL ACTUAL DRIVE & CONTR STATUS 


;SET UNIT # 


;SAVE TEMP 1 


;GET PARITY FOR MSG AQ 


;GET PARITY FOR MSG Al 
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ih Gib tibih Sbih g 
NE HR Ee RE & 


— 
o 
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004737 
013737 


BEE 
013737 
ure 
013737 


18:09 


047732 
003372 003434 


posses 003372 
003372 003426 

ge 003372 
003372 003432 
003436 003372 
003372 003436 
OOs44e 003372 
05575 003442 


001176 001172 
OO340% O03424 
045206 001176 
001000 133724 


OO0340& 003426 
O4S244 001176 


001000 133666 


003410 003430 
O4S302 001176 


001008 133620 


003412 003432 
O4S340 001176 
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1S: 
es: 


4$: 
SS: 


7$: 
8$: 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


PC, SBPAR 
TEMP1,E.A2 


BO, TEMP1 
See 
TEMP1,£.80 
E.81, TEMP 
PC, SBPAR 
TEMP1,E.B1 
£.82, TEMP] 
PE SBPAR 
TEMP1,E.82 
£.83, TEMP1 
PC SBPAR 
TEMP1,E.83 


(SP)+, TEMPI 
SESCAPE , STMPS 


H-AO,E.AO 
#13, SESCAPE 
(SP},-(SP) 
PC 

#SW9, ISWR 
20$ 

#2, (SP) 
H.80,£.80 
#43, SESCAPE 
(SP},-(SP) 
PC 

#SW9, ISWR 
#2, (SP) 
H.AL,E.Al 
#73, SESCAPE 
(SP5,-(SP) 
PC 

#59, ASWR 
te, (SP) 
H.B81,£.B1 


#10$, SESCAPE 
(SP); -(SP) 


;GET PARITY FOR MSG A2 
;GET PARITY FOR MSG 80 
;GET PARITY FOR MSG B1 
;GET PARITY FOR MSG B2 


GET PARITY FOR MSG 83 
sRESTORE TEMP 1 

:SAVE ESCAPE 

;TEST MSG AD 

:BR IF OK 

‘ELSE SETUP ESCAPE 

:COPY RET ADDR 

:8 RETURN TO MAINLINE ERROR 
:RET HERE FROM MAINLINE ERROR 
8 BR IF LOOP ON ERROR 

:BUMP RET ADDR TO NEXT ERROR 
;TEST MSG BO 

ELSE SETUP ESCAPE 

:COPY RET ADDR 

:8 RETURN TO MAINLINE ERROR 
RETURN HERE FROM MAINLINE ERROR 


RI 


38 BR IF L N 

;BUMP RET ADDR TO NEXT ERROR 
;TEST MSG Al 

:BR IF OK 


; TEST MSG Bl 
;BR IF OK 


moa wam«om 43 
SIITITATTS TITTIES 


-OCT-76 1 


001000 
000002 
000001 
O4ES46 
000002 
046620 


133872 


001466 


001466 


001466 


001176 


061176 


M13 


MACY11 27(1006) O6-OCT-7& 23:23 PAGE 168 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
RTS PC 
10$: BIT sSW9, ISWR 
BNE 208 
118: ADD #2, (SP) 
128: BIT 8T.A2,CHKFLG §;TEST MSG Ae? 
JSR C,RCYLD :PUT INFO IN CYLDIF, DO NOT CHECK 
138: err #7 ,82, CHKFLG : TEST NSG g2? 
ISR C,RCYLA :PUT INFO IN CYLADD, DO NOT CHECK 
14S: err #7.83,CHKFLG § ;TEST MSG 83? 
JSR PC, RSEC ;PUT INFO IN SECTOR, DO NOT CHECK 
JSR PC’ RHEAD :PUT INFO IN HEADA, DO NOT CHECK 
158: Mov STNPS, SESCAPE ;RESTORE ESCAPE 
20S: MOV #STACK, SP ;RESET STACK PTR 
Hoy SiNes,$ SESCAPE :RESTORE ESCAPE 
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RKOE ORIVE DIAGNOSTIC PART 1 MACYLI 27(1006) 06-OCT-76 23:29 PAGE 170 
Pll 06-OCT-76 18:69 SET VALUE FOR SOFTWARE SKITCH REGISTER 
; THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 


wy 


ws $e 


C14 


NIBUS SADE ORIVE DIAGNOSTIC. PART 1 MACY 271006) _Ob-OCT=-7E. 29:29. buat 17) SEG 917: 
i =oc7-7— 19:09 : 


11 ] 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


DIREHC.F 1 
tea ; TE: IF NED, CTO OR MOS SET, MSG ASB ARE INvr.I0 
os OysYS2 O0S737 001462 AKCERR: TST BYPCERR 
87 O4S 4 


z 0010 NE ONS 
S798 45460 352555 100006 003334 SIT aCESR,HCS) 


| 
| 


i a ne ee ee ee 
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DIAGNOSTIC PART 1 MACY1] 27( 1006) O6-OCT-76 23:23 PAGE 17e 
06-OCT-76 18:09 GET VALUE FOR SOFTWARE SWITCH REGISTER 
001001 BNE i$ ;BR IF CERR 
000207 Ris PC 
032737 004000 003334 1S: BIT aCTO,HCS! 
001402 BEG 5] ;BR IF NOT CTO 
on pee ;CTO ERROR, MSG ASB INVALID 


O3e737 010000 003336 ef: IT 8NED, HCSé 


if 


045514 
O4SS16 
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macy 1) 27(1006) 06-OCT-76 23: iF2 PAGE 173 
GET VALUE FOR SOFTWARE SWITCH REGISTE 
BEQ 3$ :BR IF NOT NED 
ERROR 327 :NED ERROR, MSG A&B INVALID 
33: BI aMOS,HCS2 
Q 4§ 
ERROR 330 ;MOS ERROR, MSG ASB INVALID 
4$: RTS PC 
ITHIS ROUTINE DOES THE SELECT DRIVE CMD TO GET STATUS 
:IT THEN WAITS FOR CONTROLLER READY. 
:IF RDY NOT RECEIVED BY A TIMEOUT, AN ERROR IS FLAGGED 
‘stat: mov TEMP1,-(SP) : SAVE TENE 
MOV SUNIT RKCS2(RS) :CURRENT DRIVE # 
MOV SSELORY F RKCS ciersi” :GET STATUS WITH SELECT DRIVE CMD 
MOV 
JSR PC FRDY :F 
ERROR 1 ey Nor “ BY END OF SELECT DRIVE CMD 
MOY (SP)+, TEMP ‘RESTOR TEMPL 
2 
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23:23. PAGE 174 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


: THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG 40-A3, 20-83) 
; & ALL CONTROLLER REGISTERS 


G14 


IVE OIAGNOSTIS PART 1  MACYLI 27(i006) 06-OCT-76 23:23 PAGE 175 SEQ 0175 
06-OCT-76 18:89 GET VALUE FOR SOFTWARE SWITCH REGISTER 
237 Astati: MO: TEMP], -(SP) :SAVE TEMP 
Pees ae pass nek rf HOLD T ALL CONTR REGS 
12765 100000 000000 MOV WEAR RKCS1(RS) ae CONTR 
045614 013765 OOle22 o00010 MOV SUNTT RKCSE (RS) :CURRENT DRIVE # 
O4Ss2e2 012765 900003 000026 MOV 1(RS) SELECT WORD 3 
b1e765 090001 900000 MOV sseL ORY RKCS1(RS3 GET STATUS 
13737 001414 603372 MOV TEMP] 
0047 4 JSR pe al sFIND RDY & STORE DRIVE REGS ONLY 
104117 ERROR 11? *RDY NOT SET BY END OF SELECT DRY CMD 
013737 003362 903420 MOV HMR2,H.AS :STORE MSG A3 
013737 903364 o03422 MOV HMR3,H.B3 :STORE MSG 83 
012765 190000 oD0000 MOV #CCLR, RKCS1(R5) 
013765 OO0l222 o00010 MOV SUNTT RKCS2(R5) 
012765 o00002 000026 MOV RKMR1 (RS) “SELECT WORD 2 
012765 900001 900000 MOV See ORY RReSI ( crs} 
013737 001414 003372 MOV T10, TEMP 
004737 o44244 JSR PC FRDY! sFIND RDY & STORE DRIVE REGS ONLY 
104117 ERROR 11? :ROY NOT SET 8Y END OF SELECT DRY CMD 
013737 003262 903414 MOV HMR2, H. Ae :STORE MSG A2 
013737 003364 OO34ié MOV HMR3,H. Be :STORE MSG 82 
5 o90000 MOV 8CCLR, RKCS1(R5) 
013765 O0l222 900010 V SUNIT, RKCS2(RS) 
Ole7sS oooddi o000e6 MOV 1, RKMRI (RS) -SELECT WORD 1 
012765 000001 900000 MOY #SELDRV, RKCS1(RS) 
013727 001414 003372 MOY T10, TEMP 
004737 JSR PC FROY! :FIND RDY 8 STORE DRIVE REGS ONLY 
104117 ERROR 117 ?RDY NOT SET BY END OF SELECT DRV CMD 
012737 003362 003410 MOV HMR2,H.Al :STORE MSG A 
013737 0023364 O03412 MOV HMR3,H.B1 :STORE MSG i 
012765 100000 i] MOY #CCLR, RKCS1(RS) ‘ 
013765 OOle22 000010 MOV SUNIT. RKCS2CRS) 
012765 090001 900000 MOV #SELDRV, RKCS1(RS) :SELECT WORD 0 
013737 001414 003372 MOV T10, TEMP 
004737 o44244 ISR PC. FRDY1 sFIND RDY 8 STORE DRIVE REGS ONLY 
104117 ERROR 117 !RDY NOT SET BY END OF SEL ORV CMD 
013737 003362 903404 MOV HMR2, H. AO :STORE MSG AD 
013737 002364 903406 MOV HMR3,H. BO :STORE MSG BO 
012637 002372 MOV (SP)+, TEMP ;RESTORE TEMP 
000207 RTS pC 


{THIS ROUTINE DCES A sueay STEN CLEAR 8 net? FOR CONTROLLED READY 

;IF ROY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR IS FLAGGED. 
iT UES DN sels CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR) 
RETURN +2 IF CERR CLEAR 


012765 coco40 goco10 éuBcLR: nov aSCLR RKCS2(RS) ;SUBSYS CLEAR 

013737 001414 002372 MOV T10, TEMP! 

004737 044176 JSR PC FRDY ;FIND RDY 

104120 ERROR le Sa :RDY NOT SET BY END OF SCLR 
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MACY11 27(1006) O6-OCT-7& 23:23 PAGE 176 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV SUNIT RKCS2(RS) ;CURRENT DRIVE 8 
CLR KMRI ERS) s SELECT OR WORD 6 
ISR PC GSTA 
BIT #CERR,HCS1 : CHECK FoR Scont ERROR 
SEQ 1$ 
RTS PC a 
1S: ADD #2, (SP) :SKIP OVER ERROR 
RTS PC 
?READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘SECTOR’ 
RDSEC: MOV #2, KMRL (RS) ;WORD 3 
JSR PC’ gS 18 
MOV HMR CTOR 
BIC nce Seco, SECTOR 
ASR SECT ;RIGHT JUSTIFY 
asR seer oR SECTOR 
ASR CT 
ASR SECTOR 
RTS 
FIND SECTOR O IN 22 SECTOR FORMAT. 
SERROR FLAGGED IF NOT FOUND BY TIMEOUT 
isoz2: mov TEMP1,-(SP) ;SAVE TEMP 
MOV Te000° TEMP 1 : SETUP FIMEOUT 
1S: JSR PC. RDSEC READ SECTOR 
TST SECTOR LOOK FOR SECTOR O 
BNE 2 
ISR PC, RDSEC 
TST SECTOR 
BEQ 3$ ;BR IF SAME TWICE 
2s: DEC TEMP1 
BNE 1 TRY AGAIN IF TIMEOUT NOT UP 
HOY (SP)+, TEMP ELSE RESTORE TEMP] 
38: MOV (SP)+. TEMP] 
ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 


FIND NEXT SECTOR IN 22 SECTOR FORMAT 
;ERROR FLAGGED IF NOT FOUND BY TIMEOUT 


tns22: mov TEMP1,-(SP) :SAVE TEMP 1 
MOV T500, TEMP! : SETUP TIMEOUT 
1S: JSR C.ROSEC sREAD SECTOR 
CMP Bg. SECTOR 
BEQ 33 ;BR IF SAME 
ISR PC, RDSEC sELSE TRY READ DIFFERENT TWICE 
CMP PSEC, SECTOR 
BNE ;BR IF DIFFERENT TWICE 
2S: DEC TEMP ELSE TRY AGAIN IF TIME LEFT 


000777 
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MACY11 27(1006) O6-OCT-76 23:23 PAGE 177 SEQ 0177 
GET VALUE FOR SOFTWARE SWITCH REGISTER . 


BNE 1g, 

HOV (SP)+, TEMP :RESTORE TEMP 1 
es: MOV Pe TEMP} 5 BE TORE TEMP } 

200 #2, (SP) :SKIP OVER ERROR 


READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ 
RDCYLD: MOV #2, RKMR1 CRS) :WORD 2 
ISR PC. GSTAT 


S 
ee PCa DIES CYLDIF 

Bee CYLDIF ; :RIGHT JUSTIFY 

ask CYLDIF :CYL DIFF /OFFSET 

ASR CYLDIF : INFO 

asR CYLDIF 3 

CMP CYLDIF, #777 ;CHK TO SEE IF RET IN COMPL. FORM 
NE °BR IF NOT 


B ; 
CLR CYLDIF ;CLR IF YES 











———— 


UNTBUS RKO& DRIVE DIAGNOSTIC PART 1 MACY11 27(1006) O6-OCT-76 23:23 PAGE 178 SEG 0178 
OZREHC.P11 O&-OCT-76 18:09 GET VALUE FOR SOFTWARE SWITCH REGISTER 


BE O4E474 000207 18: RTS PC 
READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT 8 STORE IT IN ‘CYLADO' 
O46476 012765 900002 O00026 ADCYLA: MOV #2, RKMRI(RS)  ;WORD 2 

JSR CSS1 aT 


| 
| 
| §972 O46510 013737 003364 001364 MOV nes YLADD 
8673 O46516 042737 160017 901364 gic arc choD CYLADD 
8574 946524 006237 001364 ASR CYL sRIGHT JUSTIFY 
8975 O46630 006237 901364 ASR €YL YtAB :CYL ADDR 
8976 O46534 006237 001364 asR €YLADD : INFO 
8977 O4654O 096237 001364 ASR CYLADD 
| 6978 O46544 00207 RTS PC 
| £380 : READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN “CYLDIF’ 
gsee S46 013737 003414 001362 ACYLD: MoV 
«8983 Es4 042737 160017 001362 BIC tod Sete en.bTe sCLEAR UNWANTED INFO 
| fe Beer ee ise a ER cachet 
SS06 Baeees 001362 ASR CYLDIF 
| bag oS sae539 SOT SES 000777 ear A YEDIE, 8777 :CHK TO SEE IF RET IN COMPL. FORM 
85 i a ENE ig :BR IF NO 
8990 O48612 005037 oo1362 CLR CoLDIF “ELSE CLEAR 
e231 O46618 900207 1$: RTS PC 
e223 : READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT 8 STORE IT IN *CYLADO’ 
85 O46620 013737 OO34i&6 001364 RCYLA: MOV YLADD 
 «BSSE ~O4E526 042737 160017 001364 BIC tay CADD> , CYLADD ;CLEAR UNWANTED INFO 
87 O46634 0062327 001364 ASR CYLADD sRIGHT JUSTIFY 
| 99g S¥E54O 006237 001364 ASR €YLADD 
«Begs 44 006227 001 asR CYLADD 
OO O46650 006237 001364 ASR CYLADD 
3001 O46654 000207 RTS PC 
| $003 : READ THE SECTOR COUNT IN H.83, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 
ape O46656 013737 OO3422 O01406 RSEC: MOV H.83, SECTOR 
| $006 O466E4 042737 177017 O01406 BIC wich Sect, SECTOR -CLEAR UNWANTED INFO 
_ $007 046672 006237 001406 ASR = SECT. RIGHT JUSTIFY 
_ $008 O46676 006237 901406 ASR See ToR 
9008 O46702 006237 O01406 ASR SECTOR 
| 9010 706 O06237 O01406 ASR 
| 011 O46712 000207 RTS 
2013 : READ THE HEAD ADDR IN H.83, RIGHT IT & STORE IT IN *HEADA’ 
| $015 046714 012737 OCO422 001432 AHEAD: MOV 
218 046722 042737 170777 001432 BIC Bich EAD» HEADA UNMIANTED INFO 
8017 046730 006237 001432 ASR HEAD: ; RIGHT sist 
$018 046734 000337 0601432 SWAB HEAbA 
| 2013 046740 000207 RTS PC 
| $021 "FIND LIMIT DETECT ON SEEK IN RKMR3 BEFORE TIMEOUT 
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MACY11 27(1006) 06-OCT-76 23:23 PAGE 179 SEG 0179 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


;RETURN IF_NOT FOUND: ERR 
:RETURN+2 IF FOUND: SKIP OVER ERROR 


lim: CLR LIMERROR “LIMIT DETECT ERROR FLAG 
MOV #500. , TEMP1 ee TIMEOUT 


MOV 81, RKMRI CRS) 
1S: JSR PC’ GSTAT 
BNE Peers EXIT IF SET 
ie FEup1 
BNE 1$ 
Inc LINERROR ;SET LIMIT DETECT FLAG 
23: ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 
? ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE TIMEOUT 
‘ENTER WITH TINE IN SECONDS IN TEMP2 
:RETURN IF NOT FOUND 
:RETURN+2 IF FOUND - SKIP OVER ERROR 
BHDHM: MOV sALL 1°S 
MOV i, BAPE (RS) ‘ORO. 1 
1S: JSR PC'GSTA 
BIT #D: GBH HMR 
BNE 2s 
DEC TEMP 1 
BNE 
DEC TEMP2 
BNE FHDHM 
RTS pc 
2s: ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 
ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE TIMEOUT 
RETURN IF NOT FOUND 
:RETURN+2 IF FOUND: SKIP OVER ERROR 
FLoap: mov TEMP ;SETUP TIMEOUT 
MOV $1, 1 KART ERS) :WORD 1 
1S: ISR PC’ GSTAT 
BIT #D: LOAD, HMR2 
BNE 2 
DEC TEMP 
BNE 1$ 
RTS PC 
2s: ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 
PILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS 
‘ENTER WITH CYL # IN *CALADD’ 
‘ENTER WITH HEAD & IN ‘HEAD’ 
‘ENTER WITH FORMAT IN ’FORMAT’ 
FuDTAB: MOV RO,-(SP) SAV RO 
MOV R1:-(SP) SAV Ri 
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MACY11 27(1006) O6-OCT-7& 23:23 PAGE 180 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV SHOTAB, RO ;HEADER WORD TABLE ADDR 

CLR g -SECTOR COUNTER 

MOV AD, HD1 

ASL 1 

aSL HD 1 

ASL { 

BSL HD! 

a 1 ;SETUP HEAD # FOR WORD 2 OF HEADER 

MOV FORMAT, FMT1 

SWABStséMTzL.: 

ASL FMT] ;SETUP FORMAT FOR WORD 2 OF HEADER 
18: MOV CALADD,(RO)+ § ;HEADER WORD 1-CYL_ADOR 

MOY  —- RI CRO} ;HEADER WORD 2-SECTOR NO 

BIS HO! . (RO) : “HEAD NO 

BIS FMTL, (RO) : -FORMAT 

TST BYPFMT 

BEQ -BR IF TRUE FORMAT 

gis HCBITIMIBIT15),, (RO) ;SET GOOD SECTOR FLAGS 
2s: ISR PC, SECFLG :GET SECTOR FLAGS 
3S: MOV CALADD, TEMP1 

MOV (RO), TEMP2 

BIC CALADD, TEMP2 

BIC (RO)+, TEMP1 

BIS TEMP1: TEMP? 

MOV TEMP2, (RO)+ ;HEADER WORD 3-HEADER CHECK 

INC RI :SECTOR CTR 

CMP Ri, #22. :ALL 22 SECTORS DONE? (66 WORDS) 

BNE 1$ :8R IF NO 

MOV (SP)+,R1 :RESTOR R1 

MOV (5P)+°RO RESTOR RO 

RTS PC 


SEG. 0180 


THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED GY A PREVIOUS TEST 


: & SETS BITS 14 8 15 APPROPRIATELY. 
SECFLG: Noy R2,-(SP) :SAVE R2 


ST FORMAT 
BNE 1 ;BR IF 20 SECTOR FORMAT 
MOV #BSEQCH+8. ,R2 
JSR GT :GET HARDWARE DETECTED FLAG 


PC. FLGTST 
BIS #BiTiS, (RO) :RETURN HERE IF GOOD SECTOR 
MOV #BSE22S+8.,R2 ;ELSE RETURN HERE 

PC.FLGTST :GET SOFTWARE DETECTED FLAG 
BIS #BIT14, (RO) :RETURN HERE IF GOOD SECTOR 


MOV {aP)+, Re ;ELSE RETURN HERE 


eee eee 
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MACY! 
GET VALUE 
1$: MOV 


RTS 


27( 1006) 


M14 
06-OCT-76 23: 
OR SOFTWARE SUITCH 


(SP)+,Re 
PC 


3. PAGE 181 
GISTER 


;RESTORE Re 


THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TABLES 


; ENTER WITH THE ADDRESS OF 


; RETURN IF NO COMPARE 
; RETURN +4 IF COMPARE 


ELcTsT: mov 
1S: CMP 


es: CMP 


3$: MOV 


4§: MOV 
ADD 
RTS 


R3, -( SP) 
(R2), 8-1 
(SP)+,R3 
PC 


(R2)}+, CALADD 
#2,Re 

1$ 

HEAD , R3 
R1,R3 
(R2)+,R3 

4$ 

1$ 

(SP)+,R3 


#4, (SP) 
Pc’ 


TABLE (BSE2eH, BSE22S, ETC) IN TEMP 


;SAVE R3 


;SEE IF ALL 1’S 
:BR IF NO 
RESTORE R3 


;SEE IF = CYL #, & ADV PTR TO TRACK/SECTOR WORD 


;G0 TO NEXT CYL WORD IN TABLE 


;GET HEAD # FROM FHOTAB ROUTINE 


;ADD SECTOR & FROM FHDTAB ROUTINE 
;SECTOR/HEAD COMPARE? & INCR TO NEXT CYL WORD 


BR IF YES 

:TRY NEXT CYL 
;RESTORE R3 

; INCREMENT RET ADOR 


:THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
;WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR CO 


1S: MOV 


2s: MOV 
MP 


RO,-(SP) 
R1’-(5P) 

PC’ RDSEC 

#1° SECTOR 

PC’ MULTE 
#132. ,RO 
SECTOR, RO 

RO, SECTOR 
#RHTAB, SECTOR 
#RHTAB, RO 
#SRTTAB, R1 


(RO)+, (R1)+ 


RO, #RHTAB+132. 
13° 


#RHT 
(RO)+ ree 
RO, SECTOR 


;SAVE RO 
;SAVE RI 


;MULT SECTOR BY & 


;RO-SECTOR TO RO = INDEX 
;SAVE INDEX 


; INDEX TO BOT HALF OF RHTAB 
INDEX TO TOP HALF OF SRTTABS 


;PUT BOTTOM OF RHTAB TO TOP OF SRTTAS 


;PUT TOP OF RHTAB TO BOT OF SRTTAG 


SES 018: 
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MACY11 27(1006) O6-OCT-7& 23:23 PAGE 182 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


BNE es 

MOV (SP)+,R1 ;RESTOR Rl 
py (SP), »RO ;RESTOR RO 
RTS 


{MULT BY &. ENTER WITH DESIRED # IN ‘SECTOR’ 


MULTE: ASL SECTOR 52 X SECTOR 
HOV SECTOR, -(SP) 


:41,X SECTOR 
(SP)*,SECTOR (4X Sh+(2 x S) = & X SECTOR 


ADD 
RTS 


PROUTINE TO TURN L OR P CLOCK INTERRORUPT ON 


ELKON: CLR TIMUP 
TST PCLKF 
BNE 1$ sBRANCH IF _P-CLOCK PRESENT 
Mov #100, , aLKS :L-CLOCK, ENABLE INT 

1S: MOV #-1, IPKSB :P-CLOCK, ALL 1°S 
MOV #138, aPKS ; ENABLE tNnT cf UP, REP INT 
RTS ‘LINE FREQ & R 


SKW1I-L & KW11-P INTERRORUPT HANDLER 
tLock: CLR § TIMUP 
DEC COUNT 


BNE i$ 
MOV HZ, COUNT , 
DEC sec ; 
BNE i$ 

INC TIMUP ;SORRY, TIME IS UP 


1$: RTI 
: ROUTINE TO TURN L OR P CLOCK INTERRORUPT OFF 


ALKOF: TST  PCLKF | 
BNE «<1 ;BRACH IF P=CLOCK PRESENT 


ee gKS ;L-CLOCK, CLEAR INTERRORUPT 
1S: ce aPKs SP-CLOCK, CLEAR INTERRORUPT 


ER CTED i 

: sg IS ROTATED LEFT r, TIMES. TEAC H TIME = CARRY BIT IS SET 

; REMENTED. AT THE END OF 17 ROTATES ( TEMP1 BACK TO RIG), 
ay on 1s EXAMINED. IF IT IS SET. INDICATING AN OOD # OF 1 

RAE P ARITY BIT IS NOT SET INE. 

TE TT TS Not SET, INDICATING AN EVEN # OF 1°S ,THE PARITY BIT IS 
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MACYL1 27(1006) O6-OCT-76 23:23 PAGE 183 : SES 0183 
GET VALUE FOR SOFTWARE SWITCH REGISTER : 
? 
SSraR: MOV RO.-(SP) :SAVE RC 
MOV R1.-(5P) ve RI RI 
Mov i>. RO SHIFT COUNTER 
CLR R] COUNT 8 OF 1°S IN TEMPL 
éLc : CLEAR PaeRy 
18: = ROL TEMP! 
Bcc zs BR IF CARRY CLEAR 
23: pes 4 sO Eodhrn” 


Bit s8IT0,R1 
NE ;8R IF 000 8 IN RO 
BIS aM. PAR, TEMP! ;SET Angst "BIT 


3s: MOV SP)+, RI. 
May prs: RO sRESTORE Bi RA 
RTS pe 
TINE 10, ENABL LOOPING ON INTERMITTANT ERRORS 
N SLPERR ser Y OTHER THAN SCOPE ROUTINE 
; th : MY LOOP MAC 
b-opig: UI ' gSWS, ISWR i008 ON. ON ERROR? 
g ; RFLG HAD ERROR? 
BEQ 1§ BR IF NO 
MOV SLPERR, (SP) 
RT! 
18: oy (SP), SLPERR -SET LOOP ADDR FOR TIGHT SCOPE LOOP 


i CHECK FOR SW14 (LOOP ON TEST) OR SWE (LOOP ON SPECIFIC TEST) 


RETURN IF NEITHER SET 
; RETUPN +2 IF EITHER SET 


‘THIS SUBROUTINE IS USED AT THE END OF Al 
RECONDITIONING OF THE DRIVE BEFORE LOOPIN 


butt: cL SESCAPE 


NY uy THAT a S$ 
a UN 


NG AN ERROR OR TEST 


LR LPFLG i 
BIT #SW14, OSWR sLOOP ON TEST? 
BEG 3 ;BR IF NO 
$: ADD ac, (SP) 
$: RTS pc 
33: BIT sSW8, ISWR ;LOOP_ON SPECIFIC TEST? 
BEG : SR NO 


IF 
GHT TEST? SWR «7:0 
IF YES 


2$ 
CMPB {fateh ; 
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100000 
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tg BY TYPING A CONT Rous 
LOW THE OPERATOR ro HALT CPU WHI ENSURING | 


% LOADED & FORMATT 


(SP)+, (SP)¢ 


PC, SUBCLR 
as 


PC, SUBCLA 
24 


SSRTSEL ,RKCSI RS) 


sero 


T100, TEMP2 
Ps FATT 


Cg 


10, TEMP 
TS 


#1, Po ale 


BCCLR,RKCSI(RS) 


ING I VALID eer ine Sal ee HALTING 
sRESTORE STACK FROM INTERRORUPT 


;CERR AFTER 

i EE Pe UNL ORDED 

ere IF MANUAL OR AUTO MODE 
ig IF MODE 

GM ABORT PENDING 


;HALT PENDING 


;CERR AFTER SCL 


“START SPINDLE CM 
$67 TIMEOUT 


Ee Nor salaee 

Y NOT FOUND AFTER ST SPIN CMD. 
SETUP TIMEOUT 

;FINO 9 

NG ATIN AFTER ST SPIN CHO. 


; SEE iF HEADERS VALID 
;8F IF YES 


;RECAL CMD 


ESET CYL BIFF/OFFSET & CYL ADOR REG 


KMR2 & RKMRS RESP. 


;F INO 
ROY NO ser AFTER RECAL CMO 


;SELECT WORD 1 


;RTZ wer SET RURING RECAL CMO 
;SETUP TIMEOUT 

iFIND ATTN 

NO ATTN BFTER RECAL CMD 








woe ee eee eee 
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DZREHE.P11 4©=- OG -OCT-7& 18:09 GET VALUE FOR SOFTWARE SW 
$358 0S0326 012765 001222 000010 MOV SUNIT, RKCS2¢ VER ; 
$359 950 e768 900005 900000 MOV acLEae RKCS sDRIVE CLEAR CMD 
gery Senses Bhasse Beaice OS ROE ener FIND RDY 
35 050364 10415) ERROR 181 TAA NRO AFTER DRIVE CLEAR CMD 
$363 05035 004737 o44460 © ISR PC TSTATN :TEST FOR ATTN 
$364 250362 000401 BR o58 : eee 
3385 penzes 104154 ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMO 
! OSoS6e S$ 
$36? 
$368 
385 OSO36E 000137 O31b4E IMP FORM ;WRITE VALID FORMATS 
$371 0950372 o0S737 oD004e2 4$: TST 42 ;SEE IF MANUAL OR AUTO MODE 
eo BSS TS cee Fi She Bytes 
‘ G ; 
$374 o50404 ieeags pececs CLR SEDRC :SET ta EoE TO EXIT TO MONITOR 
275 050410 000137 043470 IMP 
i . 
$377 oS0414 104401 oOS7240 S$: TYPE _.MSG77 :CPU HALTED 
9378 Oo5042e0 900006 HALT 
$378 O50422 O00137 007740 IMP STs ;START OVER IF CONTINUE PRESSED 
ze .SBTTL UNEXPECTED TIMEOUT HANDLER 
S55 
$384 ITHIS ROUTINE IS ENTERED IF THERE IS 
$365 : NON EXISTANT MEMORY (NO SSYN) 
| 9386 : a: BOUNDRY ERROR 
| 9387 : ¢. STACK OVERFLOW 
«ees ; 
| 936d oso4zs 11600 BADTMO: MOV (SP) RO :SAVE PC WHERE TIMEOUT OCCURRED. 
$23; 950430 906740 TST -(RO} :GET PC BEFORE UPDATE x 
$392 050432 932777 o20000 120500 BIT #SW13, 2SWR - i INGIBIT ERROR TYPOUT? 
$393 O50440 01005 BNE 13 ON’T TYPE 
$394 O50442 104401 OS7416 TYPE EM3 ‘ABORT TESTS. UNEXP T.0. 2 PCs 
#3 OSO446 O10046 MOV RO, -(SP) fore Be FOR TYPEOUT 
_ $397 OSO4SO 104403 TYPOS TYPE--OCTAL ASCII 
| $398 50452 006 .BYTE 6 Mer crore (§) 
$399 D50453 900 “BYTE 0 ; SUPPRESS LEADING ZEROS 
| 9400 O50454 032777 001000 130456 1S: BIT #SW9, JSWR iL 00P ON ERROR? 
| 9401 O504b2 O014 BEQ 
402 50464 62 CMP (SP)+. (SP)+ es ORE STACK 
«$403 «OSO4E6 000177 130414 IMP asLPAbR 5 to's SFARTING ADDR OF TEST 
| g4p4 i fea GAVE BAD TIMEOUT 
| 405 oS0472 932777 O400DD 130440 2S: BIT #SW14, ISWR ‘LOOP ON TEST 
| 06 O50500 01401 8EQ 33 :NO BRANCH 
g407 os0s02 900002 RTI : YES 
_ $408 OS0S04 oDDD00 2S: HAL T ;UNEXPECTED TIME OUT OCCURRED 
410 'AS INDICATED. YOU CAN LOOP ON 
Sil !ERROR, LOOP ON TEST OR INHIBIT 
| Siz ‘ERROR TYPEOUT BY SETTING THOSE 
S412 : SWITCHES. 





0S0S76 
OS0604 
OS0606 
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44 
tf 


SNOSTIC 
-76 18:09 


043516 


0$0$30 001176 
601334 


b8i808 
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130332 
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0S0610 
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392489 
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poboee 
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nexbec Fen Poke out HONOLER Eo oie 


CMP «(SP )4, (SP )4 : RESTORE STACK 
Imps SEOP SOBORT TESTS 


.SBTTL MEMORY CHECK ENAGLE TRAP 
MEMERR: MOV 81S SESCOPE itRSS ESCAPE : 
MOV (SP), TRAPP ORE P 
ERROR 236 : UNEXP MEM PARITY TRAP 
18: cL SES RPE 
T 8SW9, aSWR :CHECK IF LOOP ON ERROR 
BNE ig YES. FORCE STACK AND TRY AGAIN 
RTI ‘cree RETURN 
2s: MOV BS TACK SP sINIT STACK 
IMP aSLPERR :LOOP ON ERROR 


.SB8TTL RKO& INTERRUPT HANDLER 


INTER: MOV (SP).RO -  sSAVE PC WHERE INT OCCURRED. 
TST ~ (80) :GET PC FORE UPDATE. 
TYPE INT aT 
MOV Bee ce) Hi RO FOR TYPEOUT 
TYPOS VRE ~-OCTAL ASCII 
.BYTE 6 3601 & DIGIT( 
gett 0 :: SUPPRESS PERC ING ZEROS 


-SB8TTL POWER DOWN AND UP ROUTINES 
;POWER DOWN ROUTINE 
SPWRON: ag SSPWRUP,PWRVEC ;SET UP VECTOR 


“2 ;HANG UP. 
;POWER UP ROUTINE 
SPWRUP: CLR SPWRCT WAIT LOOP_FOR TTY 
1S: INC $PWRCT WAIT FOR THE INCR < 
a : :0F WORD 


c T POWER DOWN VECTOR 
MOV : R7, BRON E eee i3ET OE Y? 


MOV #PR7' TRAPVEC+2 Lookout ALL pews FOR TRAPS 
MOV #STACK, SP ang? io Lge nO 
TYPE »MSG11’ RE ORT POWE PET 
RESET 
MP PFSRT 
SPWRCT: O ;WAIT COUNT FOR TTY 
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SCOPE HANDLER ROUTINE 


.SBTTL SCOPE HANDLER ROUTINE 


; RESERERESESEESESEESESESSERESSSESAALERELLEL ASSESSES ESE S EES EES 
STHIS ROUTINE CONTROLS THE Looe IN OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBER(STSTNM He St: THE DISPLAY REG. (OISPLAY<7:0 
7#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY< 15:08) 

:*#THE SWITCH wiht gs oe ee BY THIS ROUTINE ARE: 


seals Bf? [FERATIONS 
:e s 
saan =] 1h ft i era 
;#3u08= 1 LOOP ON TEST IN SWR<7:0> 
2% SCOPE : ;SCOPE=I0T 
SSCOPE: : ‘ 
CKSWR 3; TEST FOR CHANGE IN_SOFT-SWR 
1S: BIT #B81T14, ISWR LOOP ON PRESENT TEST? 
SOV YES IF SW14 
> eeeeSTART OF CODE FOR THE XOR tesTEREaats 
$xTSTR: BR 6S -IF RUNNING ON THE “XOR™ TESTER cHENGE 
THIS INSTRUCTION TO A “NOP™ (NOP=249 
MOV DRERRVEC, - (SP) si THIS THE CONTENTS OF THE ERROR VECT 3 
MOV 85S, JRERRVEC 33SET FOR TIMEOUT 
TST 38177060 soy ON XOR? 
MOV USP), SRERRVEC {REST THE ERROR VECTOR 
BR Sy vad TO THE NEXT TEST 
S$: CMP (SP)+, (SP) ::CLEAR THE STACK BF TER R TINE OUT 


MOV {SP)+, * SRERRVEC + TEE On HE ERROR 


BR THE PRESENT TEST 
&$:;eeeeREND OF CODE FOR THE aa ‘TeSTeResess 
grr s8IT08, ISWR :LOOP ON SPEC. TEST? 
CMPB 43s SW, STSTINM :iBR THE RIGHT TEST? SWR<7:0) 
BEQ SOVER ::BR IF YES 
28: i318 SERFLG i HAS AN ERROR OCCURRED? 
cre SERMAX, SERFLG !:MAX. ERRORS FOR THIS TEST OCCURRED? 
eI! #21703, aSWR :$LO0P_ON ERROR? 
73: HOV SLPERR, ,SLPADR °3:SET LOOP ADDRESS TO LAST SCOPE 
4$; CLRB © SERFLG $3 ZERO THE ERROR FLAG 
CLR STIMES CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ::ESCAPE TO THE NEXT 
3S: BIT wG1T11, 0S4R : TAwpTY TrenardoNer 
TST $PASS ii TF FIRST Fass oF PROGRAM 
BEQ watt biti ATIONS 
INC ICNT :: INCREMENT I ERAT ON COUNT 
CMP STIMES, SICNT CHECK THE NUMBER OF ITERATIONS MADE 
BGE VER ::BR IF MORE ITERATION REQUIRED 
1S: MOV #1, $ICNT : sREINITIAL1ZE THE ITERATION COUNTER 
MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
SSVLAD: INCB  $TSTNM i AGUNT- TEST NUMBER 
MOVE  $TSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 


S 
B 


1 | 


: 


if 


Rs ay 


f 


reat Ad 


SBS 


UREA TARTAR UU UE 
Em 5BOS 


SSR OOEES 


R 


rorurorofu 
Once 


BRE Giae 


SONGS sens 


CREAR REA ER ERG EA CRUE CAGE CEG CAGE CUA OR ER UR CR 
tuor 


hs = b= 8 bee be Ba be bm Be st Be 0 be se 8 oe be be bn be be ne he ane he be Pe hw 


8 


127644 


001000 


001110 
001176 


001176 


127630 
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MOV (SP), $LPADR ::SAVE SCOPE LOOP ADDRESS 
MOV (SP) ' $LPERR ;;5AVE ERROR LOOP ADDRESS 
CLR SESCAPE ‘CLEAR THE ESCAPE FROM ERROR ADDRE 


$s 

MOVE 81, SERMAX ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: Noy $42 ER oe rspLay Hea Sef Fock 
MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 


ath eax S PS Ey 
SMXCNT: 2000. ;;MAX. NUMBER OF ITERATIONS 
~SBTTL ERROR HANDLER ROUTINE 

De a ie opi a nee te ape ee ee te my 


THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: #SAVE opt or ReOR ATEN NUMBER AND THE ADDRESS OF THE ERROR CALL 


etn Su SWITCH ey N PROVIDED BY THIS ROUTINE ARE: 


te SW1S=1 
3 *#SW13=1 invieit oh Eerce TYPEOUTS 
;*#SW10=1] BEL 
; *SWOS= ERROR 
; #CALL 
;* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR $s TEST FOR CHANGE IN SOFT-SWR 
73: INCB SERFLG T THE ERROR FL 
BEQ 7 ii -DON'T LET THE FLAG GO TO ZERO 


MOV STSTNM, DISPLAY ;;DISPLAY TEST N NUMBER AND ERROR FLAG 
AM ie ama y3BELL L ON ERROR? 


Q !:NO - SKIP 
TYPE SBELL :sRING BELL 
1S: INC SERTTL ::COUNT THE NUMBER OF ERRORS 


MOV (3 a ;;GET ADDRESS OF ERROR INSTRUCTION 


SUB 
MOVE ssterec SITEMS ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT 1T13, dSWR is SKIP TYBEOU T IF SET 
BNE Hi HN YPEOUTS 
JSR PC TYPERR :G0 TO TIGER ERROR ROUTINE 
os Type =—-_ , SCRLF 
CMPB  8APTENV,SENVY =; ;RUNNING IN APT MODE 
BNE FB) ::NO,SKIP APT ERRO 
MOVB TEMB, 21$ ;;SEt ITEM NUMBER RS ERROR NUMBER 
ISR PC, SATYY ::REPORT FATAL ERROR TO APT 
218: -BYTE O 
“BYTE 0 
223: BR 223 5 3APT ERROR LOOP 
23: TST aSWR ;;HALT ON ERROR 
BPL 33 : SKIP If CONTINUE 
HALT SALT RROR! 
CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
38: BIT #81709, aSWR ::LOOP_ON ERROR SWITCH SET? 
BEQ 4§ :3BR IF NO 
MOV $LPERR, (SP) FUDGE RETURN FOR LOOPING 
4: 131 SESCAPE : CHECK FOR AN ESCAPE ADDRESS 
MOV SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
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ZREHC.P11  O€-OCT-7& 18:09 ERROR HANDLER ROUTINE 
8579 051330 S$: 
8580 051330 o22737 042604 ooD04e CMP #SENDAD, D842 86s :ACT-11 aUTO- “ACCEPT? 
3¢¢ 331338 991901 BNE i ;;BRANCH IF N 
3 1 0996 HALT 73 YES 
S683 oSi34e2 &$: 
9594 051342 o0000e RTI ; ;RETURN 
2585 .SBTTL TYPE ROUTINE 
3cer 5 RASFRAAAELALLELELALELLLALELEAR EASE AL ALLA ELELFELLLLELAAELELAELELE 
382s ; ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE. WITH. AO BYTE. 
SEES *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
9590 j#NOTEL: SHULL CONTAINS THE CHARACTER ‘ “Ge USED AS THE FILLER CHARACTER. 
$=) :#NOTED: FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRE 
#3 “hee SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3ES4 CALL: 
Siss #1) USING @ TRAP INSTRUCTION 
| 36 :# TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
9597 ;#OR 
959¢ ‘+ YPE 
SEs 2% MESSOR 
| aoe jis 
| 602 OS1344 105737 001157 $TYPE: TSTB  $TPFLG :;1$ THERE A TERMINAL? 
| $603 051350 10000e BPL 1$ ::BR IF YES 
| S604 951352 ::HALT HERE IF NO TERMINAL 
- 9895 951354 900430 BR 38 ; sLEAVE 
S606 051356 O10046 1S: MOV RO 
/ $607 951360 017600 osoDDce MOV elses Ro Higer ADDRESS OF asciz STRING 
| $608 051364 122737 O00001 001220 CMPB ss WAPTENYV, SENV RUNNING IN APT 
| 9608 051372 OO1011 BNE >:NO,GO CHECK FOR" Aer CONSOLE 
| 9610 051374 132737 000100 001221 BITB §§ sAPTSPOOL,SENVM Hho, CHEEK Fo TO AP 
j 951308 GOL 405 BEG $ $3 GQ CHECK FOR CONSOL 
1 1409 O61 051414 MOV 61S SSAGE BODRESS OR APT 
$613 OS1410 904737 oSz2060 JSR PC, SATY3 Heap MESSAGE T 
- 9614 051414 o90000 61S: WORD : MESSAGE BBORESS- 
#15 OS 1416 130737 oo0040 001221 28: ITB SOPTCSUP, SENVM s38BT CONSOLE E SUPPRESSED 
315 Set ase TTesue 2s: MOVB PES, -(SP) push SEAARACTER 10 BE TYPED ohr0 STACK 
9618 051430 OO1005 BNE 4g ;BR IF IT ISN'T THE TERMINA 
| $619 051432 005726 TST (SP) :tIF TERMINATOR POP IT OFF fue R TACK 
| $20 951434 O12600 608: MOV (SPs RO T 
| 9621 O51436 062716 oD0002 38: ADD 2, (SP) ::ADJUST RETURN PC 
| S622 051442 000 RTI ; ;RETURN 
| 9623 O51444 122716 00011 4g: CMPB Ss HT, (SP) ::BRANCH IF <HT> 
9624 OS14S0 001430 BEG 
051452 122716 o00200 CMPB =sCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
| $626 O51456 OOf006 BNE 
9627 OSi460 005726 TST (SP)+ 3 POP cORD «LF? EQUIV 
| $628 OS1462 109401 TYPE :; TYPE A CR AND LF 
S623 051464 001205 SCRLF 
| 9630 OS1466 105037 oS1¢22 CLRB § $CHARCNT +; CLEAR CHARACTER COUNT 
931 051472 O00755 =k 2$ :GET NEXT C 
$632 051474 004737 osisse S$: ISR PC. $TYPEC 66 TYPE Tate” CHARACTER 
| $633 OS1500 123726 OO1IS¢ 63: CMPE 3=s«SFILLC,(SP)+  ::IS IT TIME FOR FILLER CHARS. ° 
$624 O51504 001250 BNE 23 ::IF NO GO GET NEXT CHAR 


| 
| 
i 
| 
! 


OR 
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36 be 1238 
S647 05154 

9648 051550 
9649 051552 
9659 051554 
$651 051556 
952 051562 
3653 pei 353 
9654 iS7e 
9655 051600 
36 051602 
9657 051606 
oe ah 
9660 peiEss 
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9665 
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S68 
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9676. 

3676 051626 
ae 
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9680 051634 
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S68e 051640 
9683 OS1644 
9684 051650 
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9686 051654 
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9689 051670 
9690 051674 
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TYPE ROUTINE 
MOV $NULL, -(SP) + :GET # OF FILLER CHARS. NEEDED 
7S: DECR (SP) ti pRP. A NULL NEED TO BE TYPED? 
BLT 338 F afi--60 POP THE NULL OFF OF STACK 
38 F: seed : GO 
ce :D0 Nore cOuN AS A COUNT 
BR ;;LO0P 
HORIZONTAL TAB PROCESSOR 
g$ MOVE = &#’_—_, (SP) ; ;REPLACE Tee WITH SPACE 
33 JSR » STYPEC :: TYPE A SPAC 
Iie 87) SCHARCNT sspranc JF NOT AT 
Ist (SP)+ ; POP SPACE OFF OFF ast ack 
STYPEC: TSTB aSTPS rte UNTIL MPRINTER IS READY 
BPL STYPEC 
ove 2(SP). a$TPB ;;LOAD CHAR TO = TyPED INTO DATA REG. 
CHP acR,2tSP) i318 CHARACTER CARR TURN? 
CLRE § $CHARCNT : YES--CLEAR CHARACTER COUNT 
BR STYPEX XIT 
1S: CMPBOs«LF. (SP) Is CHARACTER A LINE FEED? 
BE STYPEX $3 F 
NCB ss (PC) + SUNT HE CHARACTER 
SCHARCNT: .WORD 0 ::CHARACTER COUNT STORAGE 
STYPEX: RTS PC 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
pate ROUTING 1 USED TO CHANCE fA 1G-BIT BINARY NUMBER TO A SDI 
iaTuis ROUTINE IS USED TO Hetice A 16-BIT Y NUMBER TO A S- DIGIT 
meh ve pret ThvE Con Neba NE VE A SPACE OR 1 DEPENDING ON Witt BE E YPED 
| i 
be E 35° geeat a ESTE NUMBER. LPBo ING Roe WILL bee! BE 
EPLACED WITH SPACES. 
:# MOV NUM, -(SP) :3BUT THE BINARY NUMBER ON THE STACK 
1% TYPDS 10 tHE ROUTI 
STYPDS: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1'-(5P) ::PUSH R1 ON STACK 
MOV Re: -(5P) ::PUSH Re ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV RS,-(SP) 3 sBUSH Re RS ON STAC 
MOV ssOEtt LSP) ::SET BLANK SaITeH AND SIGN 
MOV 20(SP):RS 33GET THE INPUT NUMBER 
BPL i$ :BR IF INPUT IS POS. 
NEG RS t EMaKE THE BINARY NUMBER POS. 
MOVE = #’-, 1 (SP) ; ; MAKE THE ASCII R NEG 
1S: CLR : :ZERO THE CONSTANTS INDEX 
MOV #SDBLK,R3 1 SETUP THE OUTPUT POINTER 
MOVE " ,(R3)+ :SET THE FIRST CHARACTER TO A BLANK 
23: CLR ::CLEAR THE BCD NUM 


J15 
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DZREHC.P11  O&-OCT-7E 18:05 CONVERT BINARY TO DECIMAL TYPE ROUTINE 
S691 OS1676 O16001 OS2032 MOV SOTBL(RO),R1  ;;GET THE CONSTANT 
17 "} 38: § RL .RS 2:FORM THIS BCD DIGIT 
i 4 4 $3 a % a i 
NC R 7; INCREA HE BCD DIGIT BY 1 
95 051710 o0o774 2p ES} : 
9% O51712 OF9105 48: ADC R1,RS :;ADO BACK THE CONSTANT 
#2. 351718 005702 TST be :igHECK IF Bco ppoiT=2 
gee FeiSde E2006 #5 7Bp) Rr. DOING Botnc o’s? 
$700 051722 100407 aM] 73 ::BR IF YES 
679] 3ei7e4 108316 cs: ASLE = (SP) MSD? 
eons peresp irre lrreee Bove fesP).-10R3) fives eee? THE SION 
( iéd¢ 8) ‘ “35 os — 
2°03 Bets AigS63 es: gts 3 ba ; MAKE as sta ASCII 
$795 051742 05670 900040 7§: he 8’ Re ;;MAKE_IT A SPACE IF NOT ALFERD) a 
$705 OS1746 11022 MOVE Re, tR3)¢ ::PUT THIS CHARACTER IN THE OUTPUT 
$707 051750 O057 TST (RO}+ :: JUST INCREMENT 
$708 051752 Oe 000010 CMP RO, #10 +; CHECK Tae INOEX 
$709 921756 902746 BLT ; 5380 DQ NEXT DIGIT 
8710 O51 003002 GT 2:60 TO EXIT 
$711 OSi7&2 010502 MOV RS, Re ::GET THE LSD 
9712 O51764 O00764 ef 6S ::GO0 CHANGE TO SCH x 
$713 951756 1057 g$: IST (SP)+ ::WAS THE LSD T RST NON-ZERO” 
3714 O51 1 L 3 :;BR IF NO 
8715 951 116663 177777 177776 MOVE  -1(SP),-2(R3) ts YES-= T THE SIGN FOR TYPING 
$71 sebirg 105013 $: CLRB —s (3) ::SET THE TERMINATOR 
Sig besos OTseos nT itbop Stack int3 
S ’ ss 
2518 fesooe SiSens 2 me SP STB96 BTBSE int 
Za Eee ee my gih | Hikae Era Is & 
; - : 
a55h b258i6 rae os2042 TYPE DBLK : rire 
$723 052020 Olse6& O00002 oo0004 MOV B(SP),4(SP) ::ADJUST THE STACK 
$724 052026 Ole616 MOY (SP)+! (SP) 
$725 052030 900002 RT ;;RETURN TO USER 
$726 052032 023420 SOTBL: 109000. 
$727 052034 001750 1900. 
$728 052036 000144 100. 
8729 052040 do001e2 10. 
$730 052042 0000 SOBLK: .BLKW 4 
3731 .SBTTL APT COMMUNICATIONS ROUTINE 
LES 1 737 go00 923 bitvie MOVE 81 FFL nsT0 REPORT FATAL ERROR 
1 1 16 Yl: MOV #1,$FFLG ss 
2735 Lira? Bos DeSsis gatya: HOVE Secs tT TYPE A MESeaGe 
ee 952070 112737 000001 os2316 saTvi: MOVE 1,SFFLG :;T0 ONLY REPORT FATAL ERROR 
$7 01 MOV RO,-(SP) :;PUSH RO ON STACK 
8740 O52100 O10i4E MOV R1'-(SP) ::PUSH R1 ON STACK 
9741 052102 105737 os2314 TSTB = SMFLG SH TYPE A MESSAGE? 
$742 35¢106 0014 3 BEQ $ ssTE NOT: 
$743 052110 122737 000001 001220 CMPB 40=swWAPTENV,SENVY = : ;OPERATING UNDER APT? 
9744 052116 001031 NE IF NOT: 
$745 052120 132737 o00100 001231 BITS § sBAPTSPOCL,SENVM ::SHOULD SPOOL MESSAGES” 
S746 052126 OOi4e5 BEQ 3 ::TF NOT: BR 





2 
& 
ote 
gs 


5 i 
g 


ZREHC.. 
| 
ea i 
aoe] est 
arse 052154 
3 pesiee 
ibs 
are9 es {$8 
ey tees 
i 
9761 Osez16 
ree feeee 
5 
oe teeee 
78 Osee4e 
2558 essen 
8771 52252 
9772 052260 
6773 052266 
9774 S272 
6775 052276 
8776 52302 
777 052206 
6778 052310 
8779 052312 
67289 062314 
6781 Oe23i5 
782 052216 
9785 
§724 
9755 
9786 
9787 
6786 
9789 
9790 
979) 
6765 
9793 
9794 
$765 
8755 
$797 
9766 
9766 
9666 
e601 
ge03 


~ Fac ng 3S PART | 


017600 


s 
0Se 

000200 
000001 


000100 
000040 


MACY] 27( 1006 
APT COMMUNICAT 
MOV 
18: ey 
BNE 
MOV 
2s: TSTBS 
te 
ASR 
MOV 
MOV 
BR 
3$: MOV 
8) 
MOV 
JSR 
4$: . WORD 
S$: 
108: eo 
BEG 
118: TST 
BNE 
MOV 
ADD 
INC 
12S: CLRE 
CLRBS 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYT 
SLFLG: .BYT 
SFFLG: .BYTE 
EVEN 
APTSIZE=200 
APTENV=001 
pbk ae sy 
Ae TeSUP=Ot 


a4(SP) RO 


Bed $2 


SMSGTYPE 
it eer: 


one Routine 23:23 PAGE 192 


5 :GET MESSAGE ACOR. 
oF re bBRe THES Fedde one 


bp it MAILBOX 
Hs i END OF MESSAGE 


Hitt SeecaGe LNETE 2 tn WORDS 


Be lS ORS IN be 


;3PUT MSG ADDR poor AB, ian LaNKOGE 


3 7PUSH tr 9 on STACK 


Hae REPORT FATAL ERROR? 
ts NG UNDER APT? 
Eines Last MESSAGE? 

GET ERROR #8 

TURN ADDR. 
+; TELL abt To TAKE ERROR 
: CLEAR FATAL Eb FLAG 
:#CLEAR L Log FLA 


FLAG 
Fe STACK sINTO Ri 
a POP STACK INTO RO 


; IMESSG. FLAG 
;;LO0G FLAG 
;;FATAL FLAG 


j RREREARERAE RA REEA RELA LLRLE ALLE RA ELAL AREAL LRE REALL RELATE ELATAEE 


: $TH S RO IS U 
HOCTAL qaee NUM. 

+ 

+ MOV NUM, -(SP) 
2 TYPOS 

“ -BYTE N 

# BYTE M 

* 

* 

# 


mee IS TO pee J 16-BIT BINARY NUMBER TO A &-DIGIT 
TYPOS-~-ENTER HERE 10. SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE red 
;;CALL_FOR TYPEOU 
sist 2 FOR NUNBER OF DIGITS TO TYPE 


43 =TYPE LEADING ZEROS 
=SUPPRESS LEADING ZEROS 


;*#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


SES [132 
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fotitutotetutatitatititecct tatty 
maiitincnediasignaces<? core etek * 
i 
io 


nat 


pis 


06-0CT- 


BRE 
ide 


O00 ~H—er- 


00 
eta OSeS43 


peseuZ 
SeS45 
0SeS42 


Begg 


052544 
177770 


oo0cde 000004 


MACY1i 27(1008) 06-OCT-76 
BINARY TO OCTAL (ASCII) AND 


;#$TYPOS OR STYPOC 
CALL: 


:# MOV NUM, -( SP) 
:# TYPON 
; MOV NUM, -(SP) 
Le TYPOC 
STYPOS: MOV a(SP),-(SP) 
MOVE 1(5P), SOF 
MOVB (SP)+,§ 
ADD #2, (SP) 
Be STYPON 
STYPOC: MOVE #1, SORTLL 
MOVB #6, SOMODE+1 
STYPON: MO , SOCNT 


MOY RS’-(5P) 
MOVE  $OMODE+i,R4 
NEG RY 
ADD 
MOVB Ba SOMOQE 
MOVE  $OFILL 
MOY 12S); ‘Re 
CLR 

1S: ROL Ae 
BR 3 

23: ROL RS 
ROL RS 
ROL RS 
MOV RS,R3 

3S: ROL R3 
DECB  $OMODE 
BPL 75 
BIC #177770,R3 
BNE 4g 
TST RY 
BEQ c$ 

4g: INC RY 
BIS #'0,R3 

SS: BIS #’ '°R3 
MOVE = RB, 8 
TYPE a$ 

7$: DECB 4 =-«sSOCNT 
BGT 2g 
BLT rs} 
INC RY 
BR 2g 

b$: MOV (SP)+,R5 
MOV (SP)+'R4 
MOV (SP)+'R3 
MOV 2(SP)'4(SP) 
MOV (SP)+ (SP) 


fiCRIC For rvPeouT™ 


:% 
oh beeper eet HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


3 3PICKUP THE MODE 

vi LOAD on FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 

t ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 
33SET FOR SIX(6) Se 9 a 
33 ET THE ITERATION COUN 


;SAVE R3 
tt Cave RY 
;;SAVE_RS 
;;GET THE NUMBER OF DIGITS TO TYPE 


Ay tg IT t= MAX. ALLOWED 


;;SAVE_IT FOR 
;;GET THE am a3 L SWITCH 
3 PICKUP T a NUMBER 


CL 
t TROTATE se INTO *C* 
S FORM THIS DIGIT 


;;GET LSS OF THIS DIGIT 


;;BR I 

piel ID JUNK 

;; TEST FOR 

5 SPee SS THIS 0? 
;BR IF YE 


t DON'T SUPPRESS ANYMORE 0°S 
;;MAKE THIS DIGIT ASCI 
SAVE re vir NOT ALREADY 


ig iF HORE TO DO 
t  TNSURE LAST DIGIT ISN'T A BLANK 
33G0 DO THE LAST DIGIT 
RESTORE RS 
i RESTORE RY 
;:;RESTORE R3 
;;SET THE STACK FOR RETURNING 


SEG 0193 


96s3 


06-OCT-76 18:09 
052536 00000e 
40 000 
paseo viele 
pecas 000 
05254 000 
OSeS44 000000 
OS25Se 000000 
052554 h 
56 
aes ae cee 
0525 13737 052550 
O0Se576 012737 OScteb 
0526 012737 O00200 
052612 005777 126330 
piece 0100 
07 
OSe626 117746 126314 
OSeb3e O42716 177600 
052636 021 000003 
OSe64e 001007 
Osees0 God7a? bescee 
2654 Bere 
OS2656 137 050106 
pbe i 000007 
0S2e670 022737 000176 
052676 001500 
052700 
052700 022737 000001 


UNTBUS a. ORIVE of AGNOSTIC PART 1 
DZREHC . P 


001149 


OSeS4é 


MACY 4 (1006) 06-0 ‘ e 3; 3 PAGE 194 
BI 0 ag (ASCII) A 
gt 
wale) EE ee Of FOR Hee AUUTINE 
OCNT: .BYTE pity oan 
ILL: .BYTE @ 33 SWITCH 
SOMODE: .WORD 0 i Fare OF DIGITS TO TYPE 


SBTTL TTY INPUT ROUTINE 
5 RERERRERRSRERARASSEREA ALE LEAL LEEK AAE LEAL EER ELEE EEE EE EEE SE EEE ES 


i a POINTER 7 oo 


STKQOUT: 0 !:QUTPUT POINTER 
::TTY KEYBOARD QUEUE 


;#TK INITIALIZE ROUTINE 
;#THIS ROUTINE WILL INIT 


IALIZE THE TTY KEYBOARD INPUT QUEUE 
;#SETUP THE INTERRUPT VECTOR AND T 


URN ON THE KEYBOARD INTERRUPT 


 xCALL: 

te ISR PC, STKINT 

sé RETURN 

$TKINT: CLR CNT sCLEAR COUNT OF ITEMS IN QUEUE 
MOV aSTKOSRT, STKGIN i + MOVE THE TARTING DRESS 
MOV INTO THE INPUT & OUTPUT " INTERS. 
MOV aSTKSR aeTKVEC 331N NITIALIZE THE KEYBOARD VECTOR 
MOV 00, as tKVEC+ “BR” LEVEL 4 
TST seTk Ke *:CLEAR DONE FLAG 
MOV #100, 2STKS ENABLE TTY KEYBOARD INTERRUPT 
RTS pC ;}RETURN TO CALLER 


;*TK SERVICE ROUTINE 
: THIS NS WILL SERVICE THE TTY 5 ey INTERRUPT 
+ ae NG THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


:#IF THE CHARACTER IS A “CONTROL-C™ (tC) STKINT IS CALLED AND 
;#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 


$TKSRV: me @STKB,-(SP) tC TRIP THES CHARACTER 


IC e1C177 (SP) TRIP THE JUNK 

CMP ), #3 3318 IT A CONTROL C? 
BNE if IF NO 
TYPE SCNTLC is TYPE A CONTROL-C (tC) 
JSR PC. STKINT +3 INET THE THE KEY BOARD 
TST (SP) + K 
IMP s? oP CONTROL c “RESTAR RT 

1S: CMP (SP), #7 3315 IT A CONTROL G? 
BNE ANCH IF NO 
CMP #SWREG, SWR :IS SOFT-SWR SELECTED? 
SEQ &$ ::G0 TO SWR CHANGE 


CMP #1, STKCNT ;3;IS THE QUEUE FULL? 


UNTBUS RKOG DRI 
DZREHC.P 11 0& 


9915 
9916 


VE 





=0CT- 


005077 
112737 
104401 


001200 


000176 
126064 


195650 


000007 


003134 


OSeSSé 
leb0ee 
000001 


053766 


DIAGNOSTIC PART 1 
76 18:09 


126156 


oS2ssS 
OS2550 


001140 


000901 


001135 


MACY 


TTY 


3$: 


318: 


328: 


4$: 


Ss: 


i Tae Nn} 06-OCT-76 23:23 PAGE 195 
OUTINE 


NPUT 


31$ 

a$TKB, -(SP) 
#tC177, (SP) 
= l 


$TKCN 
(SP), e140 
(SP), #175 
4§ : 


40, (SP)' 
(SP}+, ISTKQIN 


SES 0195 


 BRANC 
fae THe TTY 
eT BEL OF STACK 
::1S$ IT A CONTROL-S? 


::D1 ahh’ hE" BORED INTERRUPTS 
:1L00P We Bebetrt THERE 


I 
iTS A 7 1 at eeat 
i RreNGLE TTY KEYBOARD INTERRUPTS 


: COUNT THIS CHARACTER 
3318 aD, oe CASE? 


i718 ia A “SPECIAL CHAR? 
:;BRANCH IF YES 
;;MAKE IT ‘UPPER CASE 


STKQIN, #STKQEND + G0 [OFF THE ENO? 


$ 
#$TKQSRT, STKQIN 


F 
HRESe THE POINTER 


9s 


Le OFTHARE SuITCH REGISTER CHANGE ROUTINE. 


SOFT 


WARE SWITCH 1 ae ere 
D FROM 


; S_EN 

5 HOERVICE THE TEST 

*CALL WHEN shag te IN TTY ile MODE. 
SWR: CMP G, SWR 


FOR CHA 


te 
aSTKS 


THE T 
NGE INS 


ROUTINE. 
RAP HANDLER, AND WILL 
OFTWARE SWITCH REGISTER TRAP 


i157 SOFT-SWR SELECTED 
;EXIT IF NOT 

HIS A CHAR WAITING? 

bite NOT, EXIT 

;;MAKE IT 7-BIT ASCII 


TROL- 
:IF NOT, PUT IT IN "THE TTY QUEUE 
AND ExtT 


s KEKE RERLR ALA ELLE LEAL AA LL AERA ELE RAE RE LELALRELAALE RL FRE RELL RELEERE 


t SCONTROL IS poseey 10TH POINT FROM EITHER THE TTY perenne Fond ye. 


:*ROUTINE OR FRO WARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
-¥CONTROL-G BEING TYPED, AND THE SOFT WARE SWITCH REGISTER BEING SELECTED. 
bs: CMPB SAUTOB, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
BEG ::BRANCH IF YES 
TST (SP)+ 33 CLEAR CONTROL-G OFF STACK 
JER PC, STKINT FLUSH THE TTY INPUT QUELIE 
CLR $TKS : DISABLE TTY KEYBOARD INTERRUPTS 
MOVE  &1,$INTAG ::SET INTERRUPT MODE INDICATOR 
TYPE ,SCNTLG ::ECHO THE CONTROL-G (tG) 








a 
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ate 


2 SE CeMRESY 


Bb 
a4 


SSSess 
se 
bata ati 


3 


A 
iw 


ae 


— 


fh 


Ea ty 
: 


ce 


B 
8 


: 


eg SS SS ss 1 


it 


Haan 


8 


GuSnReOR 


S888S8888 
Pet ee eee ont eed med ee ed ed 
L000 NOPUle£ lors 09 


Cee ee ee ee ee ee ee ee ee ek ed ee en ee ee ed ee ee ee ee ee ee 
Oo OOowo 
c S HateteL ) 
ror a8] 
t - 


BO? 


. 
© 
i) 
t 





MACY11 27(1006) 06-OCT-76 
TTY INPUT ROUTINE 


SGTSWR: TYPE 
MOV 


06-OCT-76 18 


104401 OS3773 


SMSWR 
013746 00017 SWREG, -(SP) 


104402 TYPOC 
104401 os4004 TYPE  ,SMNEW 
OMe 198: CLR “(SP) 
E546 ELR - (5p) 
777 «125762 7$: TSTS = STKS 
100375 3PL 7§ 
LITT4S «125756 MOVB  aS$TKB,-(SP) 
OM2716 177600 BIC #¢C17?, (SP) 
021 000003 CMP (SP), 83 
ipsse aa ROD b&b, SP 
123727 901138 000001 CMPB) Ss SINNTAG, #1 
001 BNE 9g 
03008 900100 125714 MOV #100, a$TKS 
137 OS0106 es IMP STOP 
921627 o9000es a OMP (SP), #25 
00106 BNE 
104401 05376: TYPE SCNTLU 
062706 0030 208 ROD be SP 
605737 BR $ 
021627 00015 108 CMP (SP), #15 
33568 8 16$ 
00 900004 TS 4(5P) 
001493 SEG 118 
b1867? oo2 12st42 MOV 2(S5P), aSwR 
cee HE Bee Meee 
193394 Sat o00091 inps giHTes. a 
091003 BNE iss .. 
912777 000100 l2ese20 MOY #120, aSTKS 
pdG00e 15$: RTI 
004737 OSISSE 16$ JSR PC STYPEC 
021627 900060 CMP (SP), #60 
092420 BLT 18 
O2ibe? 000067 CMP (SP), #67 
003015 BGT 18S 
042726 900060 BIC #60, (SP)+ 
DOS7E TST 2(SP) 
001403 BEG 178 
N0E31E (SP) 
O0E216 ASL (SP) 
006316 ASL (SP) 
ooo002 17S: INC 2(SP) 
OEE iE 177776 BIS 5g (SP), (SP) 
0 BR ? 
104401 o01204 18S: TYPE $QUES 
BR 20$ 


3:23 PAGE 1% 


:;TYPE CURRENT CONTENTS 

OR TYPEOUT Scie Sh 
::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
+: T FOR NEW SWR 


:;CHAR THERE? 
:;IF NOT TRY AGAIN 


3;;PICK UP CHAR 
;:MAKE IT 7-BIT ASCII 


-:IS IT & CONTROL-C? 

:;BRANCH IF NOT 

$3 XES ECHO GONTROL-C (#C) 

:: CLEAN ACK 

::REENABLE TTY KEYBOARD INTERRUPTS’ 
; ; BRANCH if NO 

:;ALLOW TTY KEYBOARD INTERRUPTS 
;;CONTROL-C RESTART 


3:18 IT A_CONTROL-U? 
IF NOT 


ss CH NO 

:;YES, ECHO CONTROL-U (fU) 
set PREVIOUS INPUT 
s:LET’S TRY IT AGAIN 


;;SAVE NEW SWRA 

;;CLEAR UP STACK 
iRe"Cnaste Sty KeD. 

;;RE- E TTY KBD INTERRUPTS” 
;;BRANCH IF NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 


w 
—4 
a 
“~ 
ms] 
ret 
7 
PS) 
w 
© 
~~ 
om 


ss TYPE ?<CR><LF> 
;;SIMULATE CONTROL-U 


SEG 01% 





C16 
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mee ey 
; 


ie li 
|«ETRERC. e i9:08 ¥ INP 
10027 DSABL LSB 
10028 
10029 
taxes ‘s SSSSSSSSSRSSSSSSSSSSASSSLSSSSSSSSRASSSSSSSSSSRSEELE SELLE SSSLSGSSE 
eed :ATHIs ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
190 . BOCHR ::GET_ A CHARACTER FROM THE QUEUE 
1063 te RETURN HERE S:CHARACTER IS ON THE STACK 
ak 4 ::WITH PARITY BIT STRIPPED OFF 
10038 OS340E O11E46 SROCHR: MOV (SP). -(SP) :;PUSH DOWN THE PC AND 
19939 OS3419 O1&666 O00004 900002 MOV usp} 2(SP) 5 THE 
16040 653416 Ooeoee Goo0d4 CLR 4(5P) !IGET READY FOR A CHARACTER 
15041 53422 005046 cLR -(5P) 2 PUT NE Ps ON STACK 
1BO4 O534e4 O1274— 053432 MOV a64$,-(SP) :IPUT NEW PC ON STACK 
15043 053430 Odoog2 RTI ::POP NEW PC AND PS 
10044 053432 bus: 
1045 353432 08737 os2s4e 1S: TST STKCNT ;;WAIT ON A CHARACTER i 
1004— 053436 017 BEQ 
ide 4S histes Se5i08 oon00s ee | setcomuT.ucsp) fIREy SRE cHacieR en 
] 7 7é ’ os 
iS5E Gesid2 AACCRE Arc2Ds INC ec + SBoate THe POINTER 
1D0S0 OSMEE 023727 O62552 osesss CMP STKQOUT, SSTKQEND'::DID IT GO OFF OF THE END” 
ipres Besaee Siees) ceessu osesse SM SSrxaset.stkaouT’ i -RESE? THE POINTER 
1 6. Ole? 0 8 . es 
10553 a 23: RTI aE EN 
100s4 PETETETECCTCCTTTTTCTOT TTT CCTTCTCSTTETOTECTOTTTTETT OCT OTT TT Tete ee 


“+ 
) 


tit 


:&THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
s#CALL: 


10057 te RDLIN INPUT A STRING FROM THE TTY 

10058 1+ RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
ee + tS TERMINATOR WILL BE A BYTE OF ALL O'S 
toes OS347E 010246 SROLIN: MOV R3,-(SP) SAVE R3 

Se 2 ] 538 053732 hy astry N.R cE bese = 

ei ee Bee Ge RII no eirrER EU 

Doe 2 14 1da4i0 SHR ::G0 READ ONE CHARACTER FROM THE TTY 
1006 cig {1261 VB (SP)+, (R3) ::GET CHARACTE 

i008 053520 122713 000177 108 CMPB #177, (R3) i318 4 R RUBOUT 

irs Bees ere ft ie iife Tag we runs rugout? 

{Soos peseus thaae; pegeg 259780 Type “og’ tETYPE @ BACK SLASH 

ig74 heaton Be 177777 2 aa b-1,¢ SP) TBAGKUP By One KEY 

s wt +4 ee 

iDbre 53552 053732 CMP R2, #STTYIN ::STACK EMPTY? 

59 Sess Ea 27 aby (Ra) 98 CPTUP TO TYPEOUT THE DELETED CHAR 
rece £3564 tb4387 ae TY 9g 360 TYP : 
10566 663570 00746 BR 2g :!GO READ ANOTHER CHAR. 

10081 053672 005716 cS: TST (SP) ::RUBOUT KEY SET? 

10082 653674 001406 BQ. O78 ::BR IF NO 





5 
fs 


vnc te 


ee 
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SiAGNOSTIC PART 1  MACYL1 27( 1006) 06-OCT-76 22:23 PAGE 198 
-OCT-76 18:09 TTY INPUT ROUTINE 
112737 134 053730 MO 8'\, 98 +; TYPE A BACK SLASH 
l fi Rees TYP 
00S016 CLR SP) isCLEAR THE THE BUBOUT KEY 
seer ooca2s 73: tee 825, (R32) 3325 CHARACTER A CTRL U? 
104401 OS3761 TYPE SCNTLU bi *YPE @ CONTROL “U™ 
000726 3 +360 START OVER 
eerie ooo022 S$: CMPB sé, (RB) CHARACTER A “TR”? 
1011 BNE ia IF NO 
105013 CLAS —s«( RD +] CLEAR THE GHORACTER 
104401 0901205 TYPE  ,$CRLF TYPE A “CR” 8 "LE" 
104401 0537 TYPE STTYIN tS TYPE THE INPUT STRING 
009717 | ze 2g 3390 PICKUP, ANOTHER CHACTER 
iO4301 001204 4$: TYPE SQUES TYPE A 
7} 35 i$ CLEAR THe BUFFER AND LOOF 
111337 053730 38: Nove (83),98 ::ECHO THE CHARACTER 
193393 ie a3 bit. crane ;;CHECK FOR RETURN 
001305 BNE 23 >:LOOP IF NOT RETURN 
105063 177777 CLR8 = = 1 (R33) CL LEBR RETURN (THE 15) 
104401 9001206 TYPE $LF +: TYPE @ LINE FEED 
O0S726 TST {SB )+ 3; CLEAN RUSOLIT KEY FROM THE STACK 
012602 MOV (SP)+,R3 RESTORE R3 
OLIE4E MOV (SP). -(§p) : {ADJUST THE STACK AND PUT ADDRESS OF THE 
O16666 900004 900002 MOV 4(SP} 2(SP) rt FIRST ASCII CHARACTER ON IT 
Sie76e 053732 O00004 MOV eSTTYIN, 4(SP) 
RTI ; ;RETURN 
000 9g: BYTE 0 ;; STORAGE FOR ASCII CHAR. TO TYPE 
090 “BYTE O : TERMINAT 
$TTYIN: .BLKB 22 {RESERVE 2. BYTES FOR TTY INPUT 
O41536 oos015 000 §CNTLC: .ASCIZ /fC/«15><1l2> ;3CONTROL * 
136 906525 oo0012 SCNTLU: .ASCIZ /tur<lS><le> ROL “ 
O4253& 05015 000 §CNTLG: :ASCIZ /tG7<15><le> _FHCONTROL — ei 
015 051412 oS1le7 “ASCIZ <15><12>/SWR = 
036440 900040 
020040 O42516 020127 SMNEW: .ASCIZ / NEW = 
020075 
054016 EVEN ‘ 
“SBTTL READ AN OCTAL NUMBER FROM THE TTY 
s SHERESSSELESSSEASAASS SSSA SA SARALELALLSERESLAEFAEAREFFELALFERALSERE 
THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
:#CHANGE IT TO BINARY. 
:#THE INPUT CHARACT ERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 
FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMSER MUST 
: THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
i RDOCT js READ AN OCTAL NUMBER 
# RETURN HERE LOW ORDER BITS ARE ON TOP OF THE STACK 
:# THIGH ORDER BITS PRE IN $HIOCT 
DLISYE SRDOCT: MOV (SP), -(SP) i PROVIDE SPACE FOR THE 
O16666 CO0C04 so0nDe MOV 4(SP5 2(SP) :: INPUT NUMBER 
010046 MOV RO, -(5P) ::PUSH Ro” ON STACK 
O10146 MOV R1,-(SP) *:PUSH R1 ON STACK 
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RKOG DRIVE DIAGNOSTIC PART 1  MACYL1 27(1006) -0¢T- PAGE 199 ; SEG 0196 
Pll Aye gohee ig:6$ READ AN OCTAL NUMBER FROM mre HF if . 
954032 210246 - OY R2,-(SP) : + PUSH R2 ON EP the 
Redes ATee Sey (SP)+,RO Hoe abnes Se iS} CHARACTER 
054040 010037 os4i44 MOV RO,S$ 
oS eset CLR RI tie aR berA "oro 
eS, eo 23 se Eo) (SP) iF CK ETH HGRACTER 
- 3 8 i T* ; 5 
954054 122716 o00060 CMPS 80, (SP) Cae THIS. CHARACTER 
os4060 00 R BGT 4$ sitet EN SEF aL OIGIT 
054062 122716 O00067 CMPBtsés'7,, (SP) 
o54066 002423 BT ds a 
c : 33 
Reuhse BRE TRL et OORS 
054074 00630! as PI 744 
Bs ee o i 
ae es 
410¢ Bee? ROL = ' 
054104 O42716 177770 BIC 8107, (SP) s1S7RIP THE ASCII JUNK 
934119 j 0 c3P)+, Ra IN THIS DIGIT 
411 2 tL 
054114 O05726 38: TST (SP)+ :]CLERN TERMINATOR FROM STACK 
OS4i16 O10166 o00012 MOV R1, 12(SP) -:SAVE THE RESUL 
OSsie2 010237 Os4is4 MOV R2’ $HIOCT 
954126 Olesde MOV (SP)+,Re ape STACK INTO Re 
054130 912601 MOV (SP)+'RI :;POP STACK INTO R1 
054132 O12600 MOV (5P)+°RO 3;POP STACK INTO RO 
054134 900002 RTI RET 
054136 O05726 4$: TST (SP)+ 7; CLEAN PARTIAL FROM STACK 
054140 105010 cLRep =-«¢ RO) :SET A TERMINATOR 
o54142 10440] TYPE i Type UP THRU THE BAD CHAR. 
054144 oo00000 S$: .WORD 0 
054146 104401 001204 TYPE SQUES tes <9" 5 9" 
SS4ise 600726 oR {$ !TRY AGAIN 
os4is4 909000 SHIOCT: .WORD 0 HIGH ORDER BITS GO HERE 
-SBTTL OOUBLE LENGTH BINARY TO janis ASCII CONVERT ROUTINE 


pare TTR LT) COPNERT  GDCRIT LNGIGNED BINARY MUMGER TO fs 
:itHIs ROUTINE WILL CONVERT @ 32-BIT UNSIGNED BINARY NUMBER TO AN 
s BUNS IGNED OCTAL ASCIZ NUMBER. 


;# MOV #PNTR mt 4 ; ;POINTER . LOW WORD OF BINARY NUMGER 


;* JSR PC, as$082 3 THE ROUTINE Har 2 
# RETURN ;THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 

OS4156 104413 $0820: SAVREG ;;SAVE ALL REGISTERS 

054160 016601 900002 MOV 2(SP) Rl s sPICKUP THE POINTER TO LOW WORD 

OS4164 O12e705 054275 MOV @SOCTVL+13.,RS ;;POINTER TO DATA TABLE 

054170 912704 000014 MOV #12. ,R4 ;;D0 ELEVEN CHARACTERS 

054174 018703 177770 MOV 8tC7,R3 ; ;MASK 

054200 012100 MOV (R1)+, RO ;;LOWER WORD 

£4202 O12101 MOV (R1)+,R1 ; ;HIGH 

S4204 005 CLR 2 : TERMINATOR 

054206 110245 18: MOVE =- Re, - (RS) S:PUT CHARACTER IN DATA TABLE 

054210 010002 MOV RO, Re 3;GET THIS DIGIT 





Oooodoo 
0 +00 +00 


Pus kets ie ari 


fororure 


’ 
O-* = b+ 0+ b+ OB Be 
600 NOU £ Lure 


furufurorore 


) 


foro 


a 


fforoforurofurororuroruron 
Hebe BORON afar eo 


Bt hs + 8 Ot 8 es 2 ts 8 sb Ot he he ee me be he be he Be = Fe Be Bo = 0 8 Oh 2 0 Bo Be Fo Be Be Oe 
hi 
+ 


BRR 
Betas 


| F16 
BiPe ORE RERSIOGITES PPRT + BRC ELATR ina $0 cerac aSerr CONVER? ROUTINE Ngee 


O42 005304 DEC Ry $ COUNT T THis. CHARACTER x 
Redet? sa7cke + 8 biBe HE HOT IME cast airy 
sS4e20 os INC RS ALL pra! i DONE 80. UST SAINTE FOR FIRST 
4222 O10566 o00002 MOV RS, 2(SP) ::QSCIZ2 CHAR. & PUT IT ON THE STACK 
OS4226 104414 RESREG : RESTORE ALL REGIST ERS 
eat 57 5 p :: RETURN TO USE 
4 63 23 ASR R POSITION THE MASK FOR THE LasT DIGIT 
954234 006001 33 ROR Rl ;;POSITION THE BINARY NUMBER F 
04236 906000 ROR RO : THE NEXT OCTAL DIGIT 
os4 00699 ROR i 
4 ROR R 
- 1 ROR i 
Reason eee are R3 MASK OUT ALL JUNK 
54 pegses 900060 BAS Bb Be : S CHAR. ASCII 
os425— 900753 2c 1§ $30 PUT IT IN THE DATA TABLE 
054260 o0001& SOCTVL: .BLKB “RESERVE DATA TABLE 
-SETTL SINGLE LENSTH ernary 70 BECIMAL ASCIZ ROUTINE 
. s SSSSSSSSSSSFESSRSESSESSSSSFSSRLSSESLSSELLSSSRERSEFLALLAPELELELAFEE 
:&THIS ROUTINE WILL CONVERT @ 16-BIT UNSIGNED BINARY NUMBER TO AN 
; SUNS TGNED DECIMAL ASCIZ NUMBER. 
:% MOV NUMBER. - (SP) :;PUT BINARY NUMBER ON THE STACK 
# ISR PC, desSe2p :: CALL 3 
:# RETURN ::ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
OS427E O16627 900002 oS432— $SB2D: MOV 2(SP).18 :;SAVE BINARY NUMBER 
054304 512746 054325 MOV 81$,-{SP) ::SET POINTER 
054310 604737 964332 ISR PC desDB20 53 CALL DOUBLE LENGTH CONVERT 
054314 062716 600005 ADD #5' (SP) :ONLY ALLOW FIVE CHARACTERS 
054320 Oleete 00002 MOY (SP )+,2(SP) $ PICKUP BOINTER 
054324 909207 RT Fc :: RETURN 
064326 090000 ooco000 1S: WORD 0,0 
“SETTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
jeere Rittter nhl CONVERT & aE ATT RINGRY FREER TO Ot LRICRERD 
THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
Piel ie (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
tt MOV #PNTR. -(SP) :;POINTER TO LOW WORD OF BINARY NUMBER 
:# ISR PC, as$DB2D 
: RETURN : THE FIRST ADDRESS OF ASCIZ 
iTS ON THE STACK 
064322 104413 $0820: SAVREG +3 SAVE REGISTERS 
beusaa Siee08 peaees : : SBE CVT RO SCM ODDREES OF “SDECVE™. STRING 
- os 8 
054344 sae Sa0ces oie MOV a30kc 353 :;PUT ADDRESS OF asc iz ET ING ON STACK 
054350 012201 MOV CReoe Rl ::PICKUP THE BINARY NUMBER 
054352 2igede MOV (Re)+' Re 
054354 812723 


ooog12 .084430 MOV #10. ,4$ :;SET UP TO DO 10 CONVERSIONS 
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p 
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NTS ORIvE OUAgNOSTIC PART | e701 o 23:23 PAGE 201 
|“ ODREHC.PL 06-06 Pa :09 sou 27( 4006) ,Qe0C7- DECIMAL ASCII FORVERT ROUTINE 
| «10BS1 OS4362 12704 os4HHe MOV 8S TNPWR ;;ADORESS OF TEN POWE 
| 1236 Sed 705 OS444s MOV Bg NPutE, RS 
1 “sre 6 1$: CLR S ; CLEAR PARTIAL 
10254 054374 161401 2s: Sug (R4) Ri ::SUSTRACT TEN POWER 
19255 054376 SBC 
| Dee Saabs 5525 tT apa ‘BR IF TEN POWER TO LARGE 
15886 444 posses rig R3 $$A0D 1 T ARTIAL 
10253 84406 000772 ee 2§ L00 
10260 O5441 Dees! 38: 800 (R4)+,R1 : {RESTORE SUBTRACTED VALUE 
peel 4412 9055 Re 
i Sewaie pes ooe ad (Rese Es) sMOVE T T TEN POWER 
( o + 73 
| ibe ewe S653 00060 is whee Heicw Hat to RSL 
| 10265 054424 110320 MOVB 3. [RO)+ :; SAVE 
| 10266 O54426 005357 DEC (Pt) + i BONE? 
| 10267 954430 900000 4$: . WORD . 
ee Ben (ee Be Reet 
+ 
| 5553 Reaase 105915 RECEeG STORE REGISTERS 
| 10871 OS4440 RTS PC : SRETURN 
«10872 «OS4442 145000 STNPWR: 145000 :31.0€09 
lge7a OS4444 035632 | 
10274 OS444— 160400 160400 ;;1.0E08 
«10875 oS44s0 00276 
| 10276 O54452 11 113200 1. 0£07 
10277 OS44s4 30 
10278 O54456 041100 041100 ;;1.0E06 
10278 + OS4460 17 
«10280 OS4462 103240 103240 3; 1.0808 
| ibeee Beuuee Tere 23420 1.0E04 
3 
| 10283 054470 tas 
| 10284 84472 901750 1750 ;;1.0£03 
«10285 064474 900000 
| 10286 4476 O000144 To ;;1.0&02 
D586 Reuece Sopot 5 1.0E01 
i0ee9 54504 itd j es 
, 202090 054506 000001 ;;1.0&00 
ioeee Seueis 500014 $ ra} » RE ERY TORAGE FOR_ASCIZ STRING 
) Q 
| 12588 SSB FTL’ + nuntitcal asciz strife SUPPRESS LEADING ZEROS 
| 10295 ; REREEEEERESEERELAREEER ALLER SE ELERSELLARESERSRAREL ELAR ERE LE REDE AE 
10236 :ATHIS. ROUT! Ne ie USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
| BB ee ee 
«(10288 1 # MOV SNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
| 10300 # ISR PC, d#SSUPRS 
10301 
hak os 1 SSUPRS: MOV RO, -(SP) +358 VE RO 
Ue 8 - 
hai Suess Bi bee o00004 MOV 4(SP) RO 33 PICKUP | THE POINTER 
10305 OS4534 1 1$: TSTB (RO) :; TERMINATEOR? 


10 
03 BEG es 3308 IF YES 


| 
| 
| 
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oc 
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ey ed ee es ee ee ee ee ee 


C2.0M NOU £bIfue-O 


© 
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RUSSIA 


eR oeteawae 


co 
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oe 


0+ B+ B= 0-0 -+ B-* O-+ 0+ B+ B+ b= = 0-2 + 8 bs > + 0 8 8 Ow 8 HO + 6 +o hw He eee 
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Pll 06-OCT-76 18:69 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
Os4540 122729 00080 CMPB «0, (RODS op IPS AN ASCII "Oo" ° 
Seleue | Bee553 - 2§: we OBS :IBACKUP BY "1" 
suESO 01002? oOsHsse “OV RO, 38 ::SAVE FOR TYPING 
u554 104401 TYPE ti 
Os4s5— 00000 35: WORD TIASCIZ POINTER GOES HERE 


0 
012602 MOV (SP)+,R + REST RO 
seeeg St58°? Moy ‘ee it F Re, + Reet She THE STACK 
bs45e4 500207 RTS pe >: RETURN 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
‘7 SSSSSSSSSSLSFSLSSLERASSSSSSSSFASSESSESSSSAELESLSLFSEREFSRELSSESERE 


;*#SAVE RO-RS 
»#CAL 


; Ls: 
+y 2faNses , 
TUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 





;# 

3; #TOP---( +16) 

3% 42---( 418) 

2% +4---R5 

;# +---R4 

;# +8---R3 

3 #+10---Re 

3#+le=--R} 

3#+14---RO 

SSAVREG: 
OS456E 010046 MOV =—s- RO, - (SP) ;;PUSH RO ON STACK 
054570 OiC146 MOV RIL, -(5P) ;PUSH RI ON STACK 
054572 010246 mov Re, -(SE) : PUSH Re ON STACK 
Da4ere D136 Moy 3,7 (5B) ;:PUSH R TACK 

76 O10446 MOV = R4 - (SP) ;;PUSH RY ON STACK 

054600 10546 MOV - RS, - (SP) ;;PUSH RS ON STACK 
HeGe Oi bpH MoV = ge LSP) ,-( SP) s3BAVE PS OF MAIN FLOW 
4606 O16646 O000e MOV  —2(5P)}-(SP) :;SAVE PC OF MAIN FLOW 
4612 O16646 9000ee Rov geiSP),-(SE) SAVE PS OF CALL 
OS4E1E 16646 000022 MOV e(SP),-(SP) 5 ;SAVE PC OF CALL 
4é22 00002 RTI . 

;#RESTORE RO-RS 

;* ; 

7: RESREG 
ps4bes SRESREG: 
4624 012666 o00022 MOV SP)+,22(SP) ;;RESTORE PC OF CALL 
4630 012666 O0002e MOV SP)+,22(5P) ;;RESTORE PS OF CALL 
4624 O1e6e6 O0000ce MOV SP)+,cc(5P) ;;RESTORE PC OF MAIN FLOW 
4640 OlS6EE ee MOV SP)+,cc(SP) ;;RESTORE PS OF MAIN FLOW 
OS4644 012605 MOV SP)+:R NTO RS 
OS4e4— 12604 MOV 
OS4650 912603 MOV 
4652 012602 MOV 
054654 012601 MOV 
OS4656 012600 MOV 
OS4660 000002 RT 
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OUTINE. THEN USING THE ADDRESS OBTAINED fh WILL 





THE DESIRED R 
4 70 THAT ROUT Ine. 
STRAP: MOV RO, -(SP) 
re BSP, RO 
— -(RO),RO 
MOV Frresoc no) A 
RTS 


STRAPE: MOV 
MOV 
RTI 


(SP), -(SP) 
4(SP5,2°SF) 


-SB8TTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
#BY THE “TRAP” , 


INSTRUCTION 


ee C 

; ;CALL=TYP 

ii ; CALL=TYPON 
;;CALL=TYPDS 

;;CALL=GTSWR 


3 Bonnet sar} 
; CALL ce 


;CALL=RESREG 
; ; + CALL SCOP! 








He RIGHT BYTE OF TRAP 


88 FOR INDEXING 
Re 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


HE PC 
iinove THE nde BON 
;REST 


ry TYPEQUT ROUTINE 
OCTAL NUMBER (WITH_L 
ia Bs 3b§ NUMBER (NO LE 
AL NUMBER ( 
TYEE BEC IMAL NUMBER (WIT 
GET SOFT-SWR SETTING 


TEST_FOR CHANGE IN tie oo 
Y TYPEIN 


a | (104401) 
TRAP +5 (104405) 


TRAP +6 ( 104406) 
TRAP+7 (104407) 


ST att TINE 
INTERNAL LOOP ON ERROR 
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##@ CAUTION ##8/<CR><LF> 


PART 1 


CR <LF> “UNIBUS RKOE DRIVE DIAGNOSTIC 
/ “ 
(CR? LF» “MAINDEC-1 1-DZ2REH-C-PB/<CR> <LF> 


: 
z 
: 
= 
¢ 
3 
‘ 
: 


(OR><LF> “OTHERWISE, CARTRIDGE FORMATTING AND,OR THE ORIVE/ 


(CR><LF>/INITIALLY, ORIVES TO BE TESTED SHOULD HAVE: “<CR><LF> 


<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/<CR><LF> 


(ORD <LF) 
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SERVICE MSGS 
MSG7: .ASCIZ 
MSG8: .ASCIZ 
MSG9 -ASCIZ 
MSG1O: .ASCIZ 
MSG11: .ASCIZ 
MSGlé: .ASCIZ 
MSG13: .ASCII 
-ASCIZ 
MSG14: .ASCIZ 
MSG1S: .ASCIZ 
MSG1E: .ASCIZ 
MSG17; .ASCIZ 
MSG18: .ASCIZ 
MSG1S: .ASCIZ 
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(CR><LF>/DRIVE O WILL NOT BE TESTED/ 
(CR><LF>/TEST 1& TAKES 2 TO 4 MIN. 7<CR><LF> 


(CR><LF>/BYPASSING TEST 16/<CR><LF> 
(CR><LF><LF>/WILL TEST DRIVES: / 


<CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF> 


<CR><LF>/PACK BEING FORMATTED/<CR><LF> 


<CR><LF>/NO L OR P CLOCKS/ 


(CR><LF>/ALL TIMING TESTS SYPASSED/ 


<CR><LF>/BYPASSING DRIVE / 


(CR><LF><LF>/DRIVE / 
(CR><LF>/DRIVE SER #/ 
<CR><LF>/CART SER #/ 


(CR><LF><LF>/ABORTING BAL OF TESTS/<CR><LF><LF> 


(CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 
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o3 (3 MSG21: .ASCIZ <CR><LF>/BYPASSING TESTS 36,40,41 FOR MODULE TESTING’<CR><LF> 
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MSG74: .ASCIZ <CR><LF>/PGM ABORT PENDING.../ 
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7200 05015 ore 052114 MSG7S: .ASCIZ <CR><LF>/HALT PENDING.../ 
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000056 
043520 020115 MSG7&: .ASCIZ <CR><LF>/PGM ABORTED/ 
O4eS24 


050103 pales MSG77:  .ASCIZ <CR><LF>/CPU HALTED/ 
042105 


-SBTTL ERR MSGS 
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